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TCM2/15 BASIC EXF^ClStK PART i IS a StRiFvS OF TESI Pk.jGRA^S 
THAI MAY e<E USED 10 GAIN A HIGH UtGWEt uF CONFIDEnCc IN T^c 
DATA HANDLING ABILITY CM a T t: i* ? / 1 5 UEClAPfe CUNlKUL ANy ANY 
CONF TbUPA I ION OF 1 1C 8 ToSS/SS CMC TAPE T t* A nSPgR I s . 

ThF. PAMC ExENClStK CONSISTS OF StVtRAL BASIC RGUUnEs I«*aT 
MAY be INDIVIDUALLY StLt-CTEO. ! HE INSTRUCTION ffcSI OFc^ATfcS 
DRIVE B/Fl ONLY » AND RtGoIRES THAI OPlvE &/v BE QN LINE AND -*1 
ENABLED. 

the ROUTINES are: 

ROUTINE 1. 1C02/15 INSTRUCTION TEST 

ROUTINE 2. TC42/15 API TtS'l 

2. REQUIREMENTS 


2.1 EUUIPMENT 


PDP-15 

TC02/15 DECTAPE CONTROL 
1 TO 8 TU55/S6 OECTAPt TRANSPORTS 
API (OPTIONAL) 

2.2 STORAGE 


THE PROGRAM OCCUPIES CORE MEMORY UP Tu AOuRESS 2580. 
2.3 PRELIMINARY PROGRAMS 


ALL PDP-15 CENTRAL PROCESSOR MAlNDEC 0IAGN05UCS SHOULD Run 
SUCCESSFULLY BEFORE ATTEMPTING 10 RUN THIS PROGRAM, 

3. LOADING PROCEDURE 


PLACE ThE BINARY IaPE In ME REAOtR 
SET THE ADDRESS SwITChES TU 1?7*P 
SET THE BANK MODE S*ITCh TU A 1 
PRESS I/O RtSET 
PRESS READ IN 
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4, STARTING PROCEOURE 


4,1 

CONTROL SWITCH 

mmmm 

SETTINGS 




THE PARTICULAR 

ROUTINE W S£ RUN IS 

StLtCTEO dr 

placing ihe 


NUMHFR OF THE 

ROUTINE In aC SWITCH 

REGISTER PITS 

16 AND 17. 


AC 16-17 

routine 


READ SECTION 


00 

NO TEST 




01 

TL02/15 INSTRUCTION 

TEST 

7.1 


10 

TC02/15 API TEST 


7.2 


11 

NO TEST 



4.2 

STARTING ADDRESS 




200 




4,3 

PROGRAM AND/OR 

OPERATOR ACTION 




A. SET THE ADORfSS SWITCHES TO 208 




B. SELECT THE 

ROUTINE TO BE RUN VIA 

AC SWITCHES 

16-17 


C, PRESS I/O RESET 




0. PRESS START 




5, 

OPERATING PROCEDURE 




5,1 operational switch settings 


AC SWITCH FUNCTION 


0*0 Enable TTY MESSAGES 

0*1 DELETE TTY MESSAGES 

READ EACH OF THE INDIVIDUAL TEST DESCRIPTIONS TO DETERMINE IF 
ANY OTHER Switch SETTINGS APPLY TO THAT PARTICULAR ROUTINE. 
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3 . 1.1 


TEST ROUTINES AnD APPLICABLE RUN SWITCHES 


TEST ROUTINE 


ac s* function 


TCU2/15 instruction t t s t 


TC02/15 API TEST 
9.2 SUBROUTINE ABSTRACTS 


tisl HALT A I 6.NU OF \ 0 N - 

NOTION 1 E S T S (IF JAPt 
motion has not ottN 
TESTED# ROUTINE 0 (PART 1) 
SHOULD b E UTILISED bEFORE 
ATTEMPTING tape hOTION 
PORTION Of THE INSTRUC- 
TION TEST.} 

9 s i halt at eno of test. 


N/A 

5.3 PROGRAM AND/OR OPERATOR PROCEDURE 


THIS SERIES OF ROUTINES IS DESIGNED FOR INITIAL CHECKOUT OF A 
TC02/15 OECTAPE CONTROL ANO ITS ASSOCIATED DRIVES, OR MAINTENANCE 
AND REPAIR OF THE CONTROL ANO ORIVES AFTER INSTALLATION. 

THE FOLLOWING PROCEDURE COULD 8E USED FOR INITIAL CHECKOUT OF 
THE CONTROL AND DRIVES, ANO TO AID IN THE REPAIR UF MALFUNCTIONS 
ONCE THE CONTROL AND DRIVES HAVE BEEN OPERATING. 

5,3.1 OPERATION CHECK 


THE FIRST ROUTINE UtlLlZED IS THE TC02/15 INSTRUCTION TEST, IT IS 
U5E0 TO VERIFY CONTROL OPERATIONS, 
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5,3, 1 , 1 INITIAL CONTROL STATE 


WHEN POWER IS INITIALLY APPLIEO TO the TCB2/15 CONTROL# STATUS A, 
THE ERROR AND OECTAPE FLAGS, AND The DATA FLAG CAN COwE UP IN 
ANY STATE, A SHORT MANUAL PROCEDURE RILL PREVENT tRASING 
OECTAPES AND HAVING TO RELOAD PROGRAMS, 

PRESS I/O RESET 

NOW EXAMINE THE TCH2/15 INDICATOR PANtL. THE FOLLOWING INDICATORS 
SHOULO ALL BE OFF# INDICATING A fit STATE, 

DTF (OECTAPE FLAG) 

DF (OATA FLAG) 

ALL ERROR FLAGS 
W (WREN WRITE ENABLE) 

STATUS A BIT 4 (NOTION) 

US (UP TO SPEED) 

Cfit TO C2 CAN BE IN ANY STABLE STATE (NOT COUNTING) 

ALL STATE REGISTER BITS EXCEPT 1 SHOULD BE 0, AND 
BIT 1 SHOULD BE A l (STATE IDLE) 

5,3. 1.2 TC02/15 CONTROL TtST 


THE FIRST HALF OF THE TC02/15 INSTRUCTION TEST VERIFIES THE 
EXISTENCE OF ALL OECTAPE IOTS EXCEPT OTOF (SKIP IF OTF«i)# 

AND ALSO VERIFIES THAT THE STATUS A REGISTER BITS FUNCTION 
PROPERLY ANO WILL HOLD ALL COMBINATIONS OF OATA. 

SET THE ADDRESS SWITCHES TO 200 
SET THE AC SWITCHES TO 1001 
PRESS I/O RESET 

SET DRIVE 8/0 ON LINE AND WRITE ENABLED 
PRESS START 

THE PROGRAM TESTS AND VERIFIES ALL CONTROLS FUNCTIONS THAT 00 
NOT REQUIRE TAPE MOTION, ANO HALTS AT ADDRESS 522. 

A HALT AT ANY OTHER ADDRESS INDICATES A CONTROL ERROR. CONSULT 
THE PROGRAM LISTING FOR THE ERROR DEFINITION, 
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(5. 3. 1.2 TC02/1& CONTROL TEST CONTINUED) 


AT THIS POINT# IF TAPE MOTION HAS A l. R t A U Y HtE N OtHNEO# AND II 
is not A "RAW" CONTROL THAT IS HfclNG IKhTtU*. 

St T DRIVE e/a ON LINE and "Rllfc tNADLtO 
PRESS CONTINUE 

THE PROGRAM in ILL VEkIFY ThE FUNCTIONAL uPtRATlONS Of T Ht TC02/15 
CONTROL FUR ALL OtCTAPE OPERAllUNS tXCEPT "WTM, TYPtOuT "tNU” (jin 
THE TTY AND HALT AT ADDRE55 1361, 

A HALT AT ANY OTHtR ADDRESS iNOICATtS A CONTROL ERROR. CONSULT 
THE PROGRAM LISTING FOR THE ERROR DEFINITION. 

5.3.2 CHECK API OPTION 


RUN TEST ROUTINE 2 TO VERIFY THAT THE API MONKS IN A STATIC 
CONDITION. ONCE TEST 2 RUN5 IN ITS ENTIRETY# ROUTINES A, 5# 6, 
AND 7 (PART 1), SHOULD BE RUN WITH THt API OPTTON SELECTED 
(AC SWITCH 12*1 AT START FROM 2*0) . 

AFTER ONE PASS THROUGH THE API TEST RUU1INE 2# THE PROGRAM *1lL 
TYPE "API END", IF AC SR ITCH 8*1 THE PROGRAM WILL REPEA I # IF AC 
SWITCH 8*0 THE PROGRAM WILL HALT, 

6. ERRORS 


NEITHER THE TC02/15 INSTRUCTION TEST OR THE TC02/15 API TEST HAVE 
ERROR TYPEOUTS AND ALL HARDWARE MALFUNCTIONS DETECTED RESULT 
IN A PROCESSOR HALT AT A SPECIFIC ADDRESS. 

7. PROGRAM DESCRIPTION 


7.1 TC02/15 INSTRUCTION TEST (ROUTINE 1) 


THE TC02/15 INSTRUCTION TEST IS SEGMENTED INTO TWO MAJOR DIVISIONS: 


A. THOSE FUNCTIONAL OPERATIONS THAT CAN BE TESTEO WITHOUT 
TAPE MOTION. 

B. THOSE FUNCTIONS THAT CAN ONLY BE TESTED UTILIZING TAPE 
MOTION. 

IF AC SWITCH 8*1# THE PROCESSOR WILL HALT AFTER COMPLETION OF 
THE NON-MOTION TESTS AND BEFORE PROCEtDING TO THE TESTS THAT 
REQUIRE TAPE MOTION. 


BOTH SERIES OF TESTS KEUUIRE DRIVE 8/0 TO BE ON Li-Nfc ANU "RITE 
ENABLED# AND DO NUT USE ANY OTHtR OHIVES, 
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I7 # l TC02/15 INSTRUCTION TEST (ROUTINE 1) CONllNUtPJ 


THE CONTROL A NO NO TAPE MOTION PORTION OF THE TESTS TEST THE 
PERFORMANCE OF T Ht FOLLOWING* 

I/o reset clears all TC 02 /IS flags 

EXISTENCE OF ALL OECfAPfc lOfS EXCEPI OTSF 
BIT ANO DATA TEST ON UECTAPt STATUS A 
I0R5 Sir 10*0 with ALL OECTAPE FLAGS*# 

FR 1-S«7 TO GENERATE A SELECT ERRuR 

XSA OlY TO BE NOT GREATER THAN 5US 

SELECT ERROR TO GENERATE ERROR FLAG 

IORS BIT 10*1 IF EF«l 

OTEF TO SNIP IF EF IS A 1 

DTDF TO NOT SKIP IF EF IS A l 

NO PROGRAM INTERRUPT WITH £F*1 AND ENl*# 

DTXA WITH AC BIT 10*1 INHIBITS CLEARING EP 
OTX A *ITH AC BIT 10*0 DOES CLEAR EF 

SE GOING TO 1 GENERATES ERR STP ANO STATUS A BIT 4 IS 
CLEARED BY ERR STP 

EF ANO STATUS A BIT 9 (END ON A 1 ALLOW PROGRAM 
INTERRUPT 

DOES CAP GENERATE I/O POWER CLEAR ANO CLR EF 

THE TAPE MOTION TESTS VERIFY THE PERFORMANCE OF THE FOLLOWING 
OPERATIONS! 

FIRST TEST MOVE FUNCTION 


MOVE TAPE BACKWAROS 

DOES DATA BREAK NOT OCCUR IN MOVE 

WILL EZ BE DETECTED 

OOES EZ GENERATE EF 

DOES EZ GENERATE ERR STP ANO CLEAR TAPE MOTION 
(STATUS A BIT 4 ) 

OTXA WITH BIT 10*0 SHOULD CLEAR EZ 
CAP SHOULD CLEAR EZ 
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(7,1 TC02/15 INSTRUCTION TEST (ROUTINE 1) CONTINUED 


second test 


third TEST 


FOURTH TEST 


WRITE ALU (BACKWARDS) 


DUES wRITt ALL NOT CAUSE St 

wlLL WRITE ALL CAUSE A Q A I A tikfcAK ISMOULO (*fc T A r 
L t AST 9 TPO'S BEFURE tl, AT LEAST OnE Oh 
Th£m SHOULD CAUSE if TO OB.) 

IS *C LOCATION +1 AT DATA BREAK 
IS CA LOCATION -hi AT DATA BREAK IN wkjTE ALL 
RILL OELTAPE FLAG (DTF ) SET AT wRITE ALL DATA 
BREAK 

IS WRITE ALL TRANSFER OIKECTION OUT AnO NOT In 
WILL QTXA WITH AC BIT U«i NOT CLtAR OTF 
DOES DTF»1 RAKE IORS BIT ife> A 1 
WILL 0 T F ■ 1 AND £NI*1 (STATUS A BIT 9) AlLQw 
PROGRAM INTERRUPT 

WILL OTF«l ANO ENI *0 NOT ALLOW PROGRAM 
PROGRAM INTERRUPT 
WILL OTOF SKIP WITH OTF*l 
WILL OTEF NOT SKIP WITH DTF«1 ANO EF*0 
CAF SHOULD CLEAR THE OTF 

REAO ALL (FORWARD) 


WILL DATA BREAK OCCUR IN READ ALL 

DOES CA LOCATION INCREMENT IN REAO ALL 

WILL 1 TO OTF SET TIM WITH DTF ALREADY EQUAL TO 1 

DOES TIM SET EF LEVEL 

DOES TIM GENERATE ERR STP AND CLEAR MOTION 
DTXA WITH BIT 10*1 SHOULO CLEAR DTF BUT NOT 
TIM 

CAF SHOULD CLEAR TJM 
READ ALL C MODE 


DOES READ ALL C MODE ALLOW DATA BREAK 
DTF DOES NOT SET AT WCO IN C MODE 
DTF DOES SET AT WCO (WORD COUNT OVERFLOW) 
WC *19 SHOULO NOT ALLOW ANY MORE DATA BREAKS 
CAF SHOULO CLEAR TAPE MOTION 
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17,1 TC02715 INSTRUCTION TEST (ROUTINE 1) CONTINUED! 


FIFTH TEST 


SIXTH TEST 


SEVENTH TEST 


EIGHTH TEST 


SEARCH NORMAL MODE 


HUES SEARCH ALLOW OaTa BRfc Ar 

CUES DTE * 1 AFTER A SHaRCM DATA B&cAK 

CA LOCATION SHOULD NO I INCREMENT IN SEARCH 

transfer direction of data should be input 

SEARCH c MOOE 


DOES SEARCH c MODE ALLOW DATA toREAK 

DOES OTP NOT SET TO 1 WITHOUT *»CO IN C MODE 

DOES OTF SET TO 1 AT SEARCH C MOOc AND »CO 

READ DATA NORMAL MODE 


DOES READ DATA NOT ALLOW DATA BREAKS UNTIL 
STATE DATA 

WHILE IN STATE DATA 00 DATA BREAKS OCCUR EVERY 
2W0MS (APPROXIMATELY) 

DOES STATE CHECK GOING TO 0 SET 1 TO OTF 

READ DATA C MODE 


DOES READ OATA ALLOW 256 DATA BREAKS PER BLOCK 
STATE CHECK GOING TO 0 SHOULD NOT SET l TO DTF 
IF WC«t 

WCO (WORD COUNT OVERFLOW) BY ITSELF SHOULD NOT 
SET 1 TO OTF 

STATE CHECK GOING TO 0, WC*0 AND READ OATA 
C MOOE SHQULO SET 1 TO OTF 
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[7,1 TC02/15 INSTRUCT ION TEST (ROUTINE 1) CONTINUED! 


NINTH TEST WRITE OATA NORMAL MODE 


WRITE DATA SHOULD NUT ALLOW DATA BREAKS UNTIL 
STATE REVERSE CHECK 

ONE DATA BREAK 5H0UL0 OCCUR OUK1NG STATE REVERSE 
CHECK 

DATA BREAKS SHOULD OCCUR APPROX I MATEL V EVERY 
200MS IN STATE DATA 

DOES WREN GO TO A 1 AT STATE DATA (NO DATA 
BREAKS IF IT DOESN’T) 

WRITE DATA SHOULD NOT ALLOW DATA BREAKS DURING 
STATE FINAL 

WRITE DATA SHOULD NOT ALLO* DATA BREAKS DURING 
STATE CHECK 

WRITE DATA NORMAL MODE AND STATE CHECK GOING TO 
0 SHOULD SET 1 TO DTP 

WREN SHOULD GO TO 0 DURING STATE IPLF- AnD NOT 
ALLOW ANY MORE DATA BREAKS 

AGAIN TEST WRITE DATA TO ALLOW 1 DATA BREAK 
AT STATE REVERSE CHECK 

WREN SHOULD NOT GO TO A 1 AT STATt DATA IF DTF 
IS ALREADY A 1 

DTXA, WRITE DATA AND NOT STATE IQLE OR STATE 

BLOCK MARK SHOULD CAUSE A TIMING ERROR 

TIMING ERROR SHOULD CLEAR US VIA ERR STOP WHICH 
IN TURN CLEARS REGISTER TO IDLE, ANOTHER 
DTXA ANO WRITE DATA SHOULD NOT CAUSE A 
SECOND TIMING ERROR 

TENTH TEST WRITE DATA C MODE 


TEST ONLY 256 DATA BREAKS PER BLOCK WRITE DATA 
STATE CHECK GOING TO 0 SHOULD NUT SET 1 TO OTF 
IF WC»1 (NO WCO) 

STATE CHECK GOING TO 0 SHOULD SET 1 TO OTF IF 
WC«0 (AFTER WCO) 
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7.2 


TC02/15 API TEST {ROUTINE 2) 


THE TC02/15 API TEST IS A STATIC TEST OF THE TCJJ2/I5 INTERRUPTS VIA 
THE API AND ShOULO nun IN ITS ENTIRETY BEFORE Al TEMPTING TO 
EXERCISE THE OTHER TEST ROUTINE UTILIZING T «E API (AC SWITCH 
12*1 AT START FRO* . 

INITIALLY, THE API TEST LOADS AOORESSES 6* TO 7? wITh a SERIES 
OF LAN'S (30«LAW S0 TO 77*LAW 7/), AFTER EACH DEC T APE API BREAK 
THE AC SHOULD EQUAL LAW 4«. AC SWITCH 8*0 IS HALT AT END OF TEST, 

AC SWITCH 6*1 IS REPEAT API TEST. 

THE SEQUENCE OF TESTS HADE ARE AS FOLLOWS: 

*ITH all OECTAPE FLAGS equal TO v. API 5HOUL0 NOT BREAK 
WITH EF« 1 ANO API OFF SHOULD NOT BREAK 
API ON AND EF» 1 SHOULD BREAK TO AODRESS 44 
Q8K AND NEW EF * 1 SHOULD BREAK TO ADDRESS 44 
API OFF ANO OBK WITH NEW EF*l SHOULD NOT ALLOW BREAK 
OECTAPE SHOULO NOT BREAK WITH PRIORITY B ACTIVE 
OBK FROM PRIORITY 0 ACTIVE SHOULD ALLOW 6RE AK TO ADDRESS 
44 

API REQUEST ON PRIORITY 7 SHOULD NOT INTERFERE wITH 
OECTAPE API REQUEST 

API ON-API OFF SHOULO NOT ALLOW A BREAK 
API ON-API OFF SHOULD NOT CAUSE OECTAPE API REQUEST 
TO BE LAST 

DBK-API OFF SHOULO NOT ALLOW API BREAK 

OBK-API OFF SHOULO NOT CAUSE OECTAPE REQUEST TO BE LAST 
API SHOULO HAVE PRIORITY OVER PROGRAM INTERRUPT 
OBK SHOULO ALLOW SECOND BREAK FROM SAME EF ANO PIE 
SHOULO NOT OCCUR 

IF EN I *0 (OECTAPE STATUS A BIT 9) AND EF*I 
NO API BREAK SHOULD OCCUR 

DECTAPE FLAG*! ANO ENI«1 ANO API ON SHOULD BREAK TO 
ADDRESS 44 

DECTAPE FLAG*! ANO API ON SHOULD OVERRIDE PROGRAM 
INTERRUPT TO ADDRESS 0 


8. PROGRAM LISTING 
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TCBXP2 SRC 


* MAlNDEC-15-DATCA-A * PARCH 17, 1972 * 


.TITLE * MAIN0EC-15-0ATCA-A * MARCH 17, 1972 * 

. Ai*S 

/TCK2 BASIC EXERCISER POP-15 - PAKT2 
/LOPYhIUhT 1972, UluIlAt EQUIPMENT COkP., HaY\A«^, 
/EQUATE UtCTAPE 1UT*S 
767541 D!CA*/07541 

707542 OTRA«707542 

767544 D1XAS707544 

707545 0TLA«0TCA10TXA 

707561 DTEF ■707561 

767562 OT«B»707562 

707601 DT OF 470764 1 

/EQUATE DECTAPE FUNCTIONS (STAT A3 
021066 SNCHFm«21000 

061000 SNCHBM«61006 

060600 MOVBKn«60000 

022000 RO AT AF *22000 

005000 WR ALL ■ 5004 

003000 RD ALL *3000 

/BIT CONSTANTS EQUATED 
020000 GOBI T »200B0 

040000 OIRBI T «40000 

100000 EZBIT«100000 

010000 NQDEBT »10000 

020000 PAR8IT *20000 

000100 OTFBIT«100 

000400 ENABLI>400 

775000 BLKTIM«LAN -3000 /ABOUT 36 MSEC 

777400 BLENTH'LAW -400 /-256 FOR BLOCK WC -400 OCTAL 

000030 WCLOC«30 /*ORD COUNT 

000031 CAL0C«31 /CURRENT ADDRESS 

006400 BUFFER«6400 

007000 BUFFR2«BUFFER*400 

000300 IKHCLR>300 

006377 BLKFNO»BUFFER-i 

007400 BUFFR3«BUFFR24400 

700004 CLOF«700004 

700044 CLON>700044 

700301 KSF«700301 

700402 TCF»700402 

700406 TLS*700406 

700401 T5F»700401 

/ 

/IN CASE OF CAL 


00020 


.LOG 20 

04020 

000020 

2* 

00021 

700304 

JORS-10 

00022 

700301 

KSF 

04023 

741000 

SKP 

00024 

740040 

mlt 

04025 

700042 

ION 

04026 

703344 

DBR 

04027 

620020 

JMP* 20 


►. 3 7 5 i 
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TCBXP2 SRC 


* MAlNDEC-15-OATCA-A * * ARCH 17, 1 972 


/ 


.EJECT 
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TC8XP2 

sue * MAINDEC-15-DATCA-A * MARCH 17. 1972 * 



/STARTING ADDRESS IS 200 



/SET SR 

REG SR 1 b TO SR 1 7 SELECT TEST 



/*1 IS 

TCt)2 INSTRUCTION TEST USES ORlvE 6 UrL*' 



/* 2 IS 

API TEST 



/SWITCH 

is delete all ttpeouts 



/SELECT 

TtsTS setup fur 



/FIRST 

DRIVE 0 TU DRIVE TABLES 

00200 



.LOC 200 

00200 

750004 

U.02TS 

LAS 

0020 1 

502300 


and (3 

00202 

342301 


TAD (JMP* TSTT8L 

00203 

040206 


DAC GOT ST 

00204 

202302 


LAC (JMP* 2 

00205 

040001 


DAC 1 

00206 

620211 

GOTST 

JMP* TSTTBL /LOC CHANGE TO * TEST fuMdER 

00207 

740040 


HLT 

00210 

600200 


JMP TC02TS 

00211 

000207 

TSTTBL 

GOTST* 1 

00212 

000232 


INSTST 

00213 

001563 


APITST 

00214 

000207 


GOTST ♦ 1 


000215 

NDTTBt* 

• 

00230 



.LOC TSTTbL*17 

0023V 

000000 

HSBITS 

0 

00231 

000000 

UNFUBC 

0 




.EJECT 
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TCBXP? SRC 


* MAlNQ£Oi5-DAlCA-A * MARCH 17, 19/2 * 




/HART 1 

VERIFIES STAT a 



✓ IS CLtARtO BY I/O 

RESEI AT START 



✓PART 2 

REQUIRED URlVt 6 ON-UNfc *KIT£ Eh 

00232 

707572 

INSIST 

OIS0410 

✓all flags 

00233 

7402SH' 


S/A 

✓SHUUlU bC. CLEAk 

00234 

7 4 00 4*,' 

I Ni£ R 0 i 

hlt 

✓dbT ARfc NOT 



/ALSO - 

IURS - BIT 

10 SHOULD * 0 

00235 

700314 


IORS 

/READ STATUS 

00236 

502303 


and X20w 

/ <*i A S K 61 T 

00237 

740200 


S/4 

✓SHOULD s 0 

00240 

740040 

I NCR 0 2 

hlt 

✓TORS FAILED 


✓ 

✓ 

/SKIP ON UECT aPE FLAG SHOULD NOT iMP 


00241 

750000 


XL A 



00242 

707601 


DTDF 

✓SHOULD NUT SKIP 


00243 

740001 


CMA 

✓ UT# « 4 


00244 

741200 


SNA 

✓SHOULD HAVE 6XC CMA 


00245 

740040 

INEK03 

/ 

HLT 

✓AC * 0 IS SKIP ERROR 




✓ 

✓SKIP ON ERROR FLAG SHOULD NOT SKIP 


00246 

750000 


CLA 



00247 

707561 


QTEF 

✓SHOULD NOT SKIP EF ■ 

0 

00250 

740001 


CMA 

✓SHOULD EXECUTE CMA 


00251 

741200 


SNA 

✓OIO IT 


00252 

740040 

INER04 

4 

HLT 

✓NO AC * 4 IS SKIP ERROR 



f 

✓PROGRAM INTERRUPT 5H0UL0 NOT 




✓OCCUR 

ALL OECTAPE FLAGS * 0 


00253 

202304 


LAC (JMP 

INER45-1 /INT JMP 


00254 

040001 


DAC 1 



00255 

750000 


CLA 

✓MAKE 0 FOR TEST 


00256 

700042 


ION 

/enable 


00257 

740000 


NOP 

✓SHOULD NOT BREAK 


00260 

700002 


I OF 

✓SHOULD EXECUTE 


00261 

740001 


CMA 

✓SHOULD EXECUTE 


00262 

741200 


SNA 

✓AC • D IS INT 


00263 

740040 

INER05 

4 

hlt 

✓INTERRUPTED IN ERROR 




/ 

✓STATUS 

A CLEAR 

ANO RE AO 0'S 


00264 

750000 


CLA 



04265 

707541 


DTC A 

✓SHOULD CLEAR STAT A 


00266 

707552 


OTRA+I0 

✓SHOULO Rt AO 0'S 


00267 

740200 


S/A 

✓AC NUT « 0 IS ERROR 


00270 

740040 

I N£K06 

HLT 

✓ CLEAR STAT A uR Rt a D 

t*ROR 




.EJECT 
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TCBXP2 SRC 


* MAlNDfcC-15-t)ATCA-A * MARCH 17, 1972 * 


/Sfct IF ANY STATUS A HITS SET TO 1 
/ AND READ BACK TO AC (ANY AT ALL) 


03271 

750000 


CL4 



P«272 

707541 


f) T C A 

/CLtAW SUT A 


*3273 

777777 


LAW ml 



37274 

7P7544 


0 TXA 

/SHOULD HEAD A FEw 

1 

P 4 2 7 5 

750400 


cla 



Pid276 

707542 


0 f R A 

/SHOULD READ A FE* 

1'5 

04277 

741200 


5NA 

/ANYTHING BUT ALL 0 

OK 

00300 

740040 

INLK07 

/ 

hlt 

/EITHER OIO NOT SET 

OR 



/ 

/STATUS 

A BIT TESTS 





/first 

BIT TEST ODES IT CLEAR 




/U 0 ALL 

TESTS FUR 1 BIT THE* RPT 




/START 

WITH BIT 9 ANO 

GO 10 BIT 0 


00301 

202305 

SABTST 

LAC (400 



00302 

040010 


0 AC 10 





/BIT CLEAR TEST 



00903 

777777 


LAW -1 



00304 

040017 


DAC 17 

/2ND PASS SWITCH 


00305 

750000 


CLA 



00300 

707341 


BTC A 

/CLEEAR STAT A 


00307 

707552 


OTRA+10 

/READ A 


00310 

500010 


AND 10 

/MASK BIT 


00311 

7402B0 


SZ A 

/IS IT 0 


00312 

740040 

SAER00 

hlt 

/NO DISPLAY FAILED 

BIT 



/NOR TEST THAT THE BIT 

WILL SET 




/TO A 1 

THEN LOOP BACK 

ANO TEST CLEAR AGAIN 




/BIT SET TEST WILL IT 

GO TO n 




/AND READ BACK AS A 1 



00313 

20001 0 

f 

LAC 10 



00314 

707544 


DTXA 

/BIT SHOULD SET TO 

1 

00315 

707552 


DfRA+10 

/ANO READ TO AC 


00316 

500010 


ANO 10 

/BIT SHOULD ■ 1 


00317 

240010 


XUR 10 

/NOW SHOULD ■ 0 


00320 

740200 


SZ A 



00321 

740040 

SAER01 

hlt 

/DISPLAY FAILED BIT 


00322 

440017 


rsz i7 

/2ND pass clear and 

SET 

00323 

741000 


SKP 

/YES 


00324 

600305 


JMP SABTST A4 




• EJECT 



PAGt 


6 


TCBXP2 SRC 


* MAlN0£C-15*0ATCA-A * MARCH 1 7, 1972 * 


/NO** TEST hill THE dIT GO 1 TO (ft 
/FIRST CLtAR SET TO l COMP fO 0 
/ 


00325 

7 54?* 00 0 


CL A 


Mh326 

707541 


0 T C A 

/CltAR A 

P0327 

200010 


LAC 10 


04330 

707544 


D ! X A 

/Sfcf BIT TO 1 

P0331 

707544 


orxA 

/SHOULD MAKE IT H 

00332 

7075'52 


OTRA+10 

/ANO RE AO 0 

00333 

500010 


ARO 10 


00334 

740200 


SZA 

/BIT GO T u 0 

00335 

740040 

SAER02 

1 

hlt 

/DISPLAY FAILED BIT 



/ 

7NO* TEST RILL THt tS I T NOT GO 



/TO A 1 

A 

WITH THt AC BIT 

« 0 

00336 

750000 

/ 

Cla 


00337 

707541 


OTC a 

/CLEAR ALL 

00340 

200010 


LAC 10 


00341 

740001 


Cm A 

/MAKE AC bIT » 0 

00342 

707544 


OTX A 

/STATA BIT SHOULD STAY 0 

00343 

707552 


OTR AH 1 0 

/READ IT 

00344 

500010 


ANO 10 

/MASK IT 

00345 

740200 


SZA 

/bit should be 0 

00346 

740040 

SAER03 

/ 

hlt 

/DISPLAY FAILED BIT 



/ 

/NOR TEST WILL TW£ BIT 




/rehain 

i 

A 1 WITH THE AC 

BIT » 0 

00347 

750000 

f 

CL* 


00350 

707541 


DTCA 

/CLEAR STAT A 

00351 

200010 


LAC 10 


00352 

542306 


SAD (020000 


00353 

600364 


JMP SAER04H1 

/CAR NOT DO BIT 4 

00354 

707544 


0 T X A 

/MAKE BIT « 1 

00355 

740001 


CMA 


00356 

707544 


OTXA 

/SHOULD NOT CHANGE IT TO 0 

00357 

707552 


OTRAH10 

/READ STAT A 

00360 

500010 


AND 10 

/MASK BIT SHOULD « 1 

00361 

240010 


XQR 10 

/XOR ShOULO GO TO 0 

00362 

740200 


SZA 


00363 

740040 

SAER04 

A 

HLT 

/DISPLAY BIT THAT DID NOT STAY 

00364 

200010 

/ 

LAC 10 

/FDR NEXT BIT 

00365 

744010. 


CLL1RAL 

/POSITION 

00366 

740200 


SZA 

✓DONE ALL BITS 

00367 

600302 


JMP SABTST+l 

/NO 


.EJECT 
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//37 0 
0 0 3 / 1 

00372 

00373 

00374 

00375 

00376 
0037 7 

00400 

00401 

00402 

00403 

00404 

00405 

00406 

00407 


00410 

00411 

00412 

00413 


00414 

00415 

00416 

00417 

00420 

00421 

00422 

00423 

00424 

00425 


TC8XP2 SRC * MA lNOtC-1 5-UA TC A-A * MARCH 17, 1972 * 

/STATUS A DATA TEST 



/ * I L L 

STAT A 

HOLD ALL 



/COMBINATIONS EXCEPT »IT 

IX 

II 

Sr 

140010 

/ 

$ A 0 A T A 

!'iP 

\ 0 


200010 


LAC 

10 

/GET DAI A 

502307 


AND 

(75740/ 

/HASH blT a 

0400U 


D AC 

1 1 

/ s a / e for compare 

7M7545 


DTLA 


/LOAD A 

707552 


D ! RA+10 

/ H fc A u A 

540011 


SAD 

1 1 

/CCRRECT RESIST 

600403 


JMP 

. + 4 

/YES 

740040 

SAER06 

hlt 


/DISPLAY FAILED SA 

200011 


LAC 

1 1 

/DISPLAY CORRECT SA 

740040 


HLT 



200010 


LAC 

10 


342305 


TAO 

(400 

/DATA Increment 

040010 


DAC 

10 


740200 


SZA 


/UGNE all COMBINATIONS 

600371 


JMP 

SAOATA+1 

/NO 


/ 

/ 

/NO* TEST STAT b OPERATION 
/A LITTLE FARTHfcR 
/ 

/FIRST TEST DOES CAP 
/CLEAR ALL STAT B FLAGS 


/ 


703302 

SBTEST CAF 

/clear all 

707572 

nTRB+10 

/READ STAT B 

740200 

SZA 

/ANY 1 BITS ARE ERROR 

740040 

3BER00 HLT 
/ 

/DISPLAY FAILED SB 


/ 

/NO* TEST WILL SELECT 

ERROR 


/SET AND READ BACK TO 

AC 


/AS 440000 BIT 0 ANO BIT 3 ONLY 


/ X S A DLY MIGHT BE MORE 

THAN 5 MICROSEC 

208310 

LAC (7000 


707545 

DTLA 


600417 

JMP ,♦! 

/I 

600420 

JMP .+1 

/2 

600421 

JMP .+1 

/3 

600422 

JMP .+1 

/ 4 « I CRUStC 

707572 

DTRB+10 

/ 5+ MICROSEC 

242311 

XQR (440000 

/AC SHOULD a 440000 

740200 

SZA 

/>xC'« SHOULD a 0 

740040 

SBER01 HLT 

/DISPLAY FAILEO BITS 


.EJECT 
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TC6XP2 

SRC * 

MAlNOEC-lb-OA FCA 

•A * MARCH 17, 19/2 * 



/ERkOP 

/ 

FLAG is AC 81 T 

li6 ON IOkS 

(6/426 

700314 


I OKS 


P3427 

5023*3 


AND (203 


0/43P 

2423/3 


X'JK (24/ 


03431 

74*20/ 


S2A 


0ki432 

740/40 

St?E* 1 A 

hlT 

/UR s failed on ef s \ 



/ 

/S€ « 

l OTEF SHOULD SKIP tF«l 

00433 

75000V 

/ 

CLA 


00434 

707561 


OTEF 

/shoulo skip e f « 1 

00435 

740V01 


CMA 

/SHOULD NUT p& EXECUTED 

00436 

740200 


SZ A 

/ac not 0 ffi £ n no Skip 

00437 

740040 

S8ER02 

4 

HLT 

/skip failed to skip 



f 

/PROGRAM INTERRUPT SHOULO POT OCCuk 



/STAT 

A PIT 9 * *! 


00440 

202312 

/ 

LAC (JMP S8ERV3-1 

00441 

040001 


OAC 1 

/IN CASE in? 

00442 

750000 


CLA 


00443 

700042 


ION 

/ENABLE PIE 

00444 

740000 


NOP 

/SHOULD NOT BREAK 

00445 

700002 


IOF 

/disable pie 

00446 

740001 


CMA 

/SHOULD BE EXECUTED 

00447 

741200 


SNA 

/IF AC * 0 

00450 

740040 

S8ER03 

HLT 

/THEN INTERRUPT IN ERROR 



j 

/OTSF 

£ 

SHOULD NOT SKIP 

OTF • » 

004S1 

750000 

9 

CLA 


00452 

707601 


DTDF 

/SHOULO NOT SKIP 

00453 

740001 


CMA 

/OTF ■ 0 SHOULO EXECUTE CMA 

00454 

741200 


SNA 

/AC i 0 IS SKIP ERROR 

00455 

740040 

S8ER04 

HLT 




/DTX A 

WITH 0IT 10 ■ 1 

SHOULO 



/NOT CLEAR STAT 8 ERRORS 

00456 

202303 

r 

LAC (200 


00457 

707544 


dtxa 

/XQR 1NH CLEAR EF 

00460 

707572 


0 1 R 0 ♦ 1 0 

/PEAU STAfUS 3 

00461 

741200 


SNA 

/SHOULD NUT BE 0 

00462 

740040 

S8EK05 

HLT 

/STAT 8 cleaheu 




.EJECT 




PAGt 


9 


TCPX'PJ? SRC 


* MAlNDfcC-13-UATCA-A * MARLh 17, 1972 * 




/ 1) T * A 

R 1 T h 6 I T 10 a 0 

Should CLtA* 

00463 

750000 


CLA 


00464 

7^7545 


DTLA 

/SHOULD CLfcAK bIT 1 <5 

00 465 

747572 


DTR6410 

/READ STAf d 

00466 

740200 


S/A 

/AC SHOULU s •>> 

$*467 

74?04? 

556*05 

i 

HlT 

/UJSHLAY FAILED Sb 



f 

/St GOING TO 1 SHOULD 

CLEAR SA 8 I T a 



/IS ERROR STOP GENERATED 

P04/0 

202313 

r 

LAC (27400 

/ALSU t N I HIT 

00471 

707545 


DTLA 

/ S H J U L 0 CAUSE St 

014472 

600473 


JMP . + 1 

/-»AIT 5 

00473 

600474 


JmP ,♦! 

/HICROSEC 

00474 

600475 


JMP .+1 


00475 

600476 


JMP . + 1 


00476 

707552 


dtra+10 


00477 

502306 


ANO (20000 


00500 

740200 


SZA 

/GO SHOULD »E 0 

00501 

740040 

SBER07 

j 

hlt 

/error stop not gen 



/ 

/fcFel 

SE*1 AND SA BIT 

9 » 1 



/PIE SHOULD CAUSE PROGRAM INTERRUPT 

4 

00502 

202314 

f 

LAC (JMP SBER08-1 

00503 

040001 


DAC 1 


00504 

750000 


CLA 


00505 

700042 


ION 

/Pit ON 

00506 

740000 


NOP 

/ R A I T SHOULD BREAK 

00507 

700002 


IOF 

/PIE OFF (NOT EXC) 

00510 

740001 


CM A 

/should not BE EXC 

00511 

749)200 


SZA 

/INT OCCUR IF AC » 0 

00512 

740040 

SBER08 

4 

hlt 

/INT FAIL AC NOT 0 



/ 

/CAP SHQULO CLEAR Sfc 

4 

IN STAT B 

00513 

703302 


CAF 

/SHOULD CLEAR SE 

00514 

707572 


DTRB+10 

/SHOULD Rt AD 0*S 

00515 

746200 


SZA 


00516 

740040 

SBER09 

4 

HLT 

/CAF DIO NOT CLEAR 



/ENO OF TESTS THAT CAN BE HADE 



/WITHOUT TAPE MOTION 




/halt 

/ 

IF SWS a 1000 


00517 

750004 

r 

LAS 


00520 

502315 


ANO (1000 


00521 

740200 


SZA 


00522 

740040 


hlt 



.EJECT 
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TC6XH2 SRC 


* MAIN0EC-15-0ATCA-A * MARCH 1 7, i 972 * 


/STAR! TARE motion 1£STS 
/DO A Mt'Vt BACKWARD INTO tl 
/MONITOR *C UliCATlON jl N CASc Ob 
/OCCURS tl SHUULO OCCUR * I T h I n 
/ 4b SECONDS El i b Only lEO*L SfATwb 


/ 


04523 

202316 

TMQTST 

LAC (60000 


04524 

707545 


0 fLA 


04525 

777777 


LA* -1 

/SET UP 

04526 

*40030 


oac Mctoc 

/ C A AN() 

00527 

202317 


LAC (BUFFER 

/*t fu 

-04530 

040031 


OAC CALOC 

/rreven r clobber 

00531 

202320 


LAC (-32 


0053-2 

04001* 


o*c 10 


00533 

140011 


DZM U 


O0534 

200030 


LAC WCLOC 

/ w ATCm OUl 

00535 

740100 


SMA 

/FVH OAT A t-KEAK 

00536 

740040 

TMEK00 

H4.T 

/«t ShUULO NOT INCREMENT 

00537 

707572 


OTR6+10 


00540 

740200 


SZA 

/alAT fa Any YET 

00541 

600545 


JMP .♦A 

/YES 

00542 

707552 


DTRA + 10 


00543 

502306 


ANO (2000* 


00544 

741200 


SNA 

/mas go cleared 

00545 

600553 


JMP ,+6 

/YES 

00546 

440011 


ISZ 11 


00547 

600534 


JMP TMER00-2 


00550 

440010 


ISZ 10 

/WAITED 43 SECONDS 

00551 

600534 


JMP TMER00-2 

/Nt> 

00552 

740040 

T«e«01 

hlt 

/NOTHING HAPPENED 

00553 

707572 


OTR6+10 

/RE AO STAfuS 

00554 

242321 


XOR (500000 

/SHOULO MAKE EZ AND EP « 3 

00555 

742200 


SZA 

/ANY OTHER « 1 IS ALSO ERROR 

00556 

740040 

TMER02 

HLT 

/DISPLAY UITS IN ERROR 

00557 

707552 


DTRA+ 1 0 


00560 

500306 


ANO (20000 

/error stop should 

00561 

740200 


SZA 

/CLEAR GO SIT 

00562 

740040 

TMER03 

HLT 

/EZ DID NOT CLEAR mOT 

00563 

200030 


LAC MCLOC 


00564 

740100 


SMA 

/WAS OATA BREAK MAQE 

00565 

740040 

TMER04 

J 

HLT 

/YES DATA BREAK IN ERROR 



9 

/CAR SHOULO CLEAR el 
£ 

AND EF 

00566 

703302 

f 

CAP 

/SHOULD clear EZ 

04567 

707572 


OTRBMP 

/ « E A u STA1US 

00570 

74*200 


SZA 

/AC SHUuLU s * 

00571 

740040 

TM&H05 

HLT 



.tJEcr 



P AGt 11 

TCBXP2 

SWC * MAINQEC-15-UATCA 

/NO* St! fcZ AGAIN 

-A * MARCH 17, 1972 * 

00572 

?323n6 

/ 

LAC (2033« 


03573 

707544 

p r x a 


33574 

70757 2 

D T R S ♦ 1 0 

/ w a 1 1 FOR cZ 

33575 

74 1 233 

SNA 


335 76 

603574 

JMP ,-2 

/ 

/UTXA *JTH AC BIT 10 S 

/i SHUULO CLEAR EZ 

3t/)577 

750000 

/ 

Cl A 


03600 

707544 

01 X A 

/should clear s r a t b 

03601 

707572 

o rkB + i3 

/REAL) STATUS 

03602 

740200 

SZA 

/bits should go to 3 

00603 

740040 

TmE*36 HlT 
/ 

/WHITE ALL SHOULD NOT 
/A SELECT ERROR 
/USE WRITE ALL NORMAL 

CAUSE 

MODE 

03604 

202322 

LAC (45430 

/ALSO ENI 

00605 

707545 

OTLA 

/LOAD WRITE ALL 

00606 

600607 

JMP .+1 

/WAIT FOR 

00607 

600610 

JMP ,*1 

/ X$ A OELAf 

00610 

600611 

JMP .+1 

/TO GO AWAY 

00611 

600612 

JMP ,+l 


00612 

707572 

DTR6+10 

/READ STATUS 

00613 

740200 

SZA 

/NO FLAGS SHOULO BE SET 

00614 

740040 

TMER07 HLT 
/ 

/NOW MAKE TAPE GO 3K WQ 
/DATA BREAK SHOULD 8E 
/250 MILL ISECONOS ANO 

j 

MADE WITHIN 

OTF SHOULD 8E SET 

00615 

777777 

/ 

LAW -1 


00616 

046400 

OAC BUFFER 


00617 

040030 

0 AC WCLOC 


00620 

202323 

LAC (BUFFER- l 


00621 

040031 

OAC CALOC 


00622 

202306 

LAC (20000 


00623 

707544 

DTXA 


00624 

202324 

LAC (-55000 


00625 

040010 

OAC 10 


00626 

200030 

LAC WCLOC 


00627 

740100 

SMA 

/wc GO TO 0 

00630 

600637 

JMP ,+7 

/YES 

00631 

707572 

DTRB+10 


00632 

740200 

SZA 

/ANY STATUS YET 

00633 

600637 

JMP . ♦ 4 

/YES 

03634 

440010 

ISZ 10 

/WAITED 25H MSEC 

00635 

600626 

JMP ,-7 

/NO 

00636 

740040 

TMER0B HLT 

.tJECT 

/NOTHING HARPtNEO ?C>3 MSEC 



PAGE 12 

TC8XP2 

SRC * 

haInOEOId-DUCA 

-A * MARCH 17 , 19 7 2 * 



/ wC • 

7/7/77 IS N U BREA* 



/ ■ 0 IS 1 BREAK 




/POSITIVE 4 N 0 NUT » 8 

I b M C R t T H A N i HR t A K 



/ test 

W L TO H A V t INC# 




/ F W U F 

whITE AlL 


0«6 37 

600030 

/ 

LAC «* C L U C 

/ # C S n 0 u L 0 C 0 ‘ < n T 

1A 0640 

74020k? 


Si A 

/ U N C t A NO OMY OnCE 

00641 

740040 

T M E K 0 V 

/ 

MLT 

/nG s 1 * S IS hURE Than i *3 f t a k 



/ 

/la SHOULD BE INCREMENTED 



/ONCE 

AND U^LT ONCE 


0(d642 

200031 

/ 

LAC CALOC 


00643 

542323 


SAD (BUFFER* 1 

/did ca Change 

00644 

740040 


hlt 

/no Oio NOT +[ 

00645 

542317 


SAD (BUFFER 

/CA ONLY + 1 

00646 

741000 


SKP 

/YES 

00647 

740040 

TMEh'10 

/ 

HLT 

/CA incremented incorrect 



/ 

/w A 1 T 
/ 

FOR EZ INTERRUPT 


00650 

707572 

f 

OTRB+10 


00651 

740100 


SM4 


00652 

600650 

/ 

JHP , *2 




/ 

/NO# TEST FLAGS EF EZ 

and DTF SHOULD * 1 



/DTE SHOULD SET DUPING 

NA DATA BREAK 



/ALL OTHER FLAGS should * 0 

V 

00653 

242325 


XOR (500100 


00654 

740200 


SZA 


00655 

740040 

TMER1 1 
/ 

HLT 

/display flags in error 



/ 

/WRITE 

ALL SHOULD NUT 

have input 



/BUFFER SHOULD STILL BE 777777 

M 

00656 

206400 

f 

LAC BUFFER 

/GET WORD WRITTEN 

00657 

740001 


CMA 


00660 

740200 


SZA 

/was IT ALTERED 

00661 

740040 

TMER12 

hlt 

/WRITE ALL INPUT 




.EJECT 
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TCBXP2 

SRC * MAlNUtC-15-UATCA-A 

* MARCH 17, 1972 * 



/iHt DECTAPE FLAG SHOULD 

NOT clea* 



/ * I T H AC 0 I T 11 * l AN 0 

OTXA 



/tZ SHOULD CLEAR AC BIT 

/ 

1 W * /' 

0*1662 

232326 

/ 

LAC C 1 00 


03663 

707544 


f) T X A 

/DTF SHUULD KOI ClEAk 

03664 

707572 


UIRd+10 

/ R F A 0 STAIUS 

00665 

242326 


XGK (105) 

/should ClEaR c T F PuS 

00666 

740204 


S/A 

/all BITS SmOuLu S 

00667 

740040 

TMLK13 

/ 

HLT 

/DISPLAY BITS In ERROw 



/ 

/OT F b 

1 SHOULO READ BACK IORS 61! 10 

00670 

700314 

/ 

IORS 

/REAP I/O STATUS 

00671 

502303 


and (200 

/ M A d K 011 10 

00672 

242303 


XOR (200 

/should make it 0 

00673 

740200 


S/A 


00674 

740040 

TMEK14 

/ 

HLT 

/IORS FAILED 



/ 

/STATUS 

A BIT 9*1 SHOULD 

1 INT WITH PIE * 1 

00679 

202327 

/ 

LAC (JMP 7 HER 1 5* 

1 

00676 

040001 


DAC i 


00877 

750000 


CLA 


00700 

700042 


ION 

/PIE ■ 1 

00701 

740000 


NOP 

/SHOULD EXECUTE 7 THE BREAK 

00702 

700002 


IOF 

/SHOULD NUT BE EXECUTED 

00703 

740001 


CHA 

/SHOULD NOT BE EXECUTED 

00704 

740200 


S/A 

/AC NOT 0 DIO NOT BREAK 

00705 

740040 

TMER15 

/ 

HLT 




/ 

/STATUS 

A BIT 9 s 0 AND 

DTF « 1 



/ 1NT SHOULD NOT OCCUR 


00706 

202330 

f 

LAC (5«0 

/CLEAR SA 9 

00707 

707544 


OTXA 

/AND NOT CLEAR DTF 

00710 

202331 


LAC (JMP TMER16- 

J 

00711 

040001 


DAC 1 


06712 

750000 


CLA 


04713 

7000*42 


ION 

/ENABLE PIE 

00714 

740000 


NOP 

/SHOULD NUT BREAK 

00715 

700002 


IOF 

/SHOULD BE EXECUTED 

00716 

740001 


CM A 

/SHUULU BE EXECUTED 

00717 

740100 


SMA 

/AC SHOULD BE NEGATIVE 

00720 

740040 

THER16 

HLT 

/AC * 0 IS ILLEGAL INT 




.EJECT 
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04721 

00722 

00723 

00724 

00725 


00726 

00727 

00730 

00731 

00732 


00733 

00734 

00735 

00736 


00737 

00740 

00741 

00742 

00743 

00744 

00745 

00746 

00747 

00750 

00751 

00752 

00753 

00754 

00755 

00756 

00757 

00760 

00761 


TCBXP2 

src * 

MaINDEC-15-DATCA 

-A * maRLH 1 7 * 1972 * 


/OTSF 

SHOULD SKIP DTF 

a 1 

750000 


Cl a 

/CLEAR FOR INDICATOR 

707601 


OTOE 

/SHOULD SAP CMA 

74000 1 


CM A 

/SHOULD NUf Bfc EXECuTtt 

740200 


Si A 

/AC NOT IS NO f SnIF 

740040 

T M £ K 1 / 
/ 

HlT 

/jTSF FAILED 10 SKIP 


/ 

/OTfcF 

should not skip 

EF s 0 

750000 


CL a 

/CLEAR FOR INDICATOR 

707561 


UTEF 

/SHOULD NuT SKIP EF s V 

740001 


C M A 

/should nut be executed 

740100 


SM A 

/AC « 0 is SKPU 

740040 

T fc£k 1 B 

/ 

hlt 

/OTfcF SKIPPED In ERROR 


f 

/ 

/CAF SHOULD CLEAR OECTAPE FLAG 

703302 

f 

CAF 

/CLEAR ALL 

707572 


DTR6+10 

/HEAD 5TATUS 

740200 


S2A 

/AC SHOULD 8 0 

740040 

TMER19 

/ 

hlt 

/CAF 010 NOT CLEAR 


/ 

/DO A 

READ ALL FORWARD 

NORMAL MODE 


/SHOULD DATA BREAK mITHIN 250 milliseconds 

202332 

f 

LAC (023000 

/READ ALL FORWARD 

707545 


DTLA 

/LOAD ANO DO 

777776 


LAW «2 


040030 


DAC WGLQC 

/ 2 WORDS 

202323 


LAC (BUFFER-1 


040031 


DAC CALOC 

/INTO BUFFER 

202333 


LAC (-122000 


040010 


DAC 10 


200030 


LAC WCLOC 


740001 


CM A 


741200 


SNA 

/wC +1 VET 

600756 


JMP , ♦ 4 

/ VfcS 

440010 


isz 10 

/WAITED 250 MILLISECONDS 

600747 


JMP , -5 

/NO 

740040 

TMER20 

HLT 

/NOTHING IN 250 MSEC 

707572 


DTRB+10 


242326 


XO R (100 

/DTF SHOULD * 1 

740200 


SZA 

/ALL O'IHEkS 0 

740040 

ThEk21 

hlt 

/ U TF UID NUT St 1 


, t JECT 
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TC&XR2 SRC 


* MAlNDEC-15-UAfCA-A * MARCH 17, 1972 * 




/ 1 H fc CA SHOULD Hfc Inch 

♦ 1 

00762 

200031 

LAC CALOC 


00763 

542323 

SAD (tfUrFtH-1 


00764 

740040 

THEK22 HLT 
/AM) UNuV +1 


00765 

54231 7 

SAD ( bUF F t R 


00766 

741000 

SKP 


00767 

740040 

TMt«23 HLT 
/ 




/ 

/now a timing error should occur 

/WITHIN 250 MICROSECONDS 

i 

00770 

777700 

/ 

LAW -100 


00771 

040010 

OAC 10 


00772 

707572 

D T K 0 ♦ 1 0 

/READ STATUS 

00773 

741100 

SPA 

/EF YET 

00774 

600777 

JMP .+3 

/ YfcS 

00775 

440010 

ISZ J0 

/WAITED 250 USEC 

00776 

600772 

JMP .-4 

/NO 


/ 

/ 

/TIMING EE AND OTF SHOULD * 1 


00777 

242334 


XOR (410100 

/SHOULD MAKE AC « 

0 


01000 

740200 


Si A 

/RIGHT FLAGS 



01001 

740040 

TMER24 

HLT 

/l BITS ARE ERROR 

MIGHT ACT 

» 0 



y 

/TIMING 

ERROR SHOULD 

CLEAR MOTION 



01002 

707552 


OTRA+10 

/READ STAT A 



01003 

502306 


AND (GOBI T 

/mask MOT SIT 



01004 

740200 


SZA 

/TIM CLEAR IT 



01005 

740040 

TMER25 

/ 

HLT 

/TIM DID NOT GENERATE ERROR 

STOP 



/ 

/A DATA 

BREAK SHOULD 

NOT HAVE 




/SEEN MADE WCO AT LAST OBRK 
/ 

01006 200030 LAC WCLOC /SHOULD NOT HAVE CHANGED 

01007 740000 Si A /DID IT *1 

01010 740040 TMER26 HLT /DEKKO THKU WC = 0 

/ 

/ 

/UTXA WITH AC BIT 10 * 1 AND 11 * 0 
/SHOULD CLEaH OTF and NOT clean timing 
/ 


01011 

202303 

LAC (200 



01012 

707544 

DTXA 

/SHOULD CLEAR DIF 

1 1*0 

01013 

707572 

DTRB+10 

/READ ST A 1 B 


01014 

242335 

XQR (410000 

/MAKE tF AND TIM s 

i* 

01015 

740200 

SZA 

/DIF CLEAR AND NOT 

T I M 

01016 

740040 

TMEK27 HLT 

/DISPLAY FLO BITS 



.EJECT 
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PAGE 16 TCBXP2 SRC 

/caf should clear timing error 


/ 


0 1017 

703302 


CAF 

/CLtAR ALL 

01020 

707572 


OTRH410 

/RE A 0 TIM ERROR 

01021 

740200 


SZA 

/st at 6 should s « 

01022 

740040 

TMER2P 

/ 

hlt 

/DISPLAY FLO ST AT b 



/ 

/NO* 00 

A READ ALL FORWARD C MODE 



/SET CA 

FUR 2 WORDS 




/ 1 ST DATA BREAK WITHIN 

250 MILLISEC 



/2N0 OATA BREAK WITHIN 

250 MlCROSeC 



/2N0 BRk 

. SETS DTF 




/A THIRL 

i BREAK SHOUtO 

NOT bt MADE 

01023 

202336 

/ 

LAC (33000 

/READ ALL C MOQE 

01024 

707545 


OTL A 

/ L t A 0 ANO 5TART 

01025 

77777 6 


LAW -2 

/2 WORD 

01026 

040030 


OAC WCLUC 


01027 

202323 


LAC (SUFFER* 1 

/INTO BUFFER 

01030 

040031 


OAC CALOC 


01031 

202333 


LAC (-122000 

/COUNT 250 MILLISEC 

01032 

040010 


DAC 10 


01033 

200030 


LAC WCLOC 


01034 

740001 


CM A 

/NC YET 

01035 

741200 


SNA 


01036 

601042 


JHP ,*4 

/YES l BREAK HADE 

01037 

440010 


ISZ 10 

/WAITED 250 MILLISEC 

01040 

601033 


JHP ,-5 

/NO 

01041 

740040 

TMER29 

/ 

hlt 

/NO DATA BREAK 250 MILLISEC 



/ 

/THE OTF 

M 

SHOULD NOT HAVE SET 

01042 

707572 

/ 

OTR84-10 

/READ STAT S 

01043 

740200 


SZA 

/DTP SHOULO * 0 NOT WCO 

01044 

740040 

TMER30 

/ 

HLT 

/DISPLAY ERROR STAT 0 



/ 

/A SECOND BREAK SHOULD 

BE MADE 



/WITHIN 

250 MICROSEC OF LAST 



/SINCE wCO OTF SHQULO 

• 1 

01045 

777700 


LAW -100 


01046 

040010 


OAC 10 


01047 

200030 


LAC WCLOC 


01050 

74120-0 


SNA 


01051 

601055 


JHP ,<*4 


01052 

440010 


ISZ 10 


01053 

601047 


JMP , -4 


01054 

740040 

TMER31 

HLT 



.EJECT 



17 

TC0XP2 

5RC 

* MAlNQEC-15-OATCA 

-A * MARCH 17, 1972 * 



/2NI) 

BRtAK SHOULD SET 

DTF 

01065 

7^7572 


0 1 R B ♦ 1 0 

/READ STAf « 

01056 

942326 


XUR (100 

/only otf should 

01057 

74*20$ 


52 A 

/ * A S 5 T A T CUR 

01060 

74004$ 

TM£R 

/ 

32 HUT 

/UlbPLAf PAlUtU Bilb 



/ 

/A T 

HIRU BREAK 5HUUU0 

nut bt made 



/*C 

/ 

* 0 


01061 

7 7 7 7 $ 0 

f 

U A W -100 


01062 

*40010 


DAC 14 


01063 

200030 


U AC WCUUC 

/GET *C 

01064 

740200 


Si A 

/DID II +1 

01065 

740040 

TMEK33 HUT 

/DATA BREAK THRU WC * 0 

01066 

440010 


ISZ 10 

/WAITEO 250 MIC SEC 

01067 

601063 

/ 

JMP .-4 

/NO 



/ 

/I/O 

j 

POWER CUEAR (CAF) 

SHOULD CLEAR TAPE MOTION 

01070 

703302 

/ 

CAF 

/CLEAR ALU 

01071 

707552 


DTRAA-10 

/RE AO STAT A 

01072 

502306 


ANO (GOBIT 

/MASK MOT BIT 

01073 

740200 


SZA 

/DID IT CLEAR 

01074 

740040 

TMER34 HUT 
/ 

/no power clear failed 



/ 

/NOW 

DO SEARCH FORWARD 

NORMAL MODE 



/OATA BREAK SHOULD BE 

4 

MADE WITHIN 1 SECOND 

01075 

202337 

f 

UAC (21000 

/SEARCH N MODE 

01076 

707545 


DTUA 

/LOAD ANO SO 

01077 

140030 


DZM WCUOC 


01100 

202323 


UAC (BUFFER-1 


01101 

040031 


DAC CAUOC 


01102 

77777 7 


LAW -1 


01103 

046377 


DAC BUFFER-1 


01104 

2*2340 


UAC (172366 


01105 

040010 


DAC 10 





.EJECT 




PAGE IS 

TCBXP2 

$RC * NAlN0eC-15-0ATCA- 

A * MARCH 17, 1972 ♦ 



/HON I ? OH 

«C FOR 1 SECOND 

4*1106 

200034- 


LAC WCIUC 


01107 

74020V* 


S/A 

/HREA k MADE YET 

01110 

601114 


JftP 

/YES 

01111 

440W 1 0 


1SZ 13 

/-AlTtO 1 SEC 

01112 

601106 


JMp .*4 

/NO 

01113 

745»04tf 

TMEK35 

huT 

/NO DATA d R t. A K F UK 1 StL 

01114 

707572 

/ 

ofRa+10 

/RE AU ST A I b 

01115 

242326 


XQR (100 

/ Q N L T DTF ShuuLO pE SET 

01116 

740200 


S/A 


01117 

740040 

TwEk 36 
/ 

hlT 

/UISPLAY olTS In ERRUK 



/ 

/CA SHOULD NOT 1NCR In 

S E A R C-h 

01120 

200031 


LAC CAlOC 


01121 

542323 


SAO (BUFFfcR-1 

/Oil) CA +1 

01122 

741000 


SKP 

/nC 

01123 

740040 

TM6H37 

HLT 

/♦i to ca inh failed 



/WAS transfer direction 

InPuT 

01124 

206377 


LAC BUFFER-1 

/GET INPUT *ORU 

01125 

740001 


C«A 

/SHOULD NOT « 0 

01126 

741200 


SNA 

/INPUT made 

01127 

740040 

TMER3S 

hlt 

/APPARENTLY OUTPUT 




•eject 
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TCBXP2 SRC 


* MAlN0fcC-i5-0ATCA-A * MARCH 17, 1972 * 


/tape should still be moving 

/CHANGE TO SEARCH C MODE 


01 130 

202341 


LAC (1000K 




P1131 

707544 


OTXA 


/SET C MODE BIT 


P1132 

77777b 


LAW m 2 


/SET UP ? wfjB'ijS 


/1133 

7)40030 

i 

DAC wCLUC 






/ 

n INST 

DATA BREAK IS 

APPROX 5o MILLISEC 


01134 

202342 


LAC (•23420 




S* 1 135 

040010 


DAC 10 




P1136 

200030. 


LAC RCLOC 


/GET wC 


01137 

74000 1 


Cm a 


/MAKE ♦ 


91140 

741200 


SNA 


/BREAK YE ] 


01141 

601145 


JMP .+4 


/YES 


01142 

440010 


ISZ 10 


/WAITED 73 MILLISEC 


01143 

601136 


JMP .-5 


/NO 


01144 

740040 

TMER39 

i 

HIT 


/NO DATA BREAK 70 MILLISEC 



/ 

/NO nCQ 

SHOULD NOT SET 

DTP AT BREAK 1 


01145 

707572 


OTRB+10 


/READ STAT b 


01146 

740200 


sza 


/no flags should * 1 


01147 

740040 

TMER40 

M 

hlt 


/DISPLAY ERROR STAT B 




r 

/2ND DATA BREAK APPROX. 

55 MILLISEC 


01150 

202342 


LAC (-23420 




01151 

040010 


DAC 10 




01152 

200030 


LAC RCLOC 


/SECOND BREAK 


01153 

741200 


SNA 


/MADE YET 


01154 

601160 


JMP , +4 


/YES 


01155 

440010 


ISZ 10 


/RAITED 70 MILLISEC 


01156 

601152 


JMP ,-4 


/NO 


01137 

740040 

TMEH41 

J 

hlt 


/NO DATA BREAK 70 MILLISEC 



/RCO SHOULD SET OTP 

IN 

CMOOE 


01160 

707572 


DTRB+10 


/READ STAT B 


01161 

242326 


XOR (100 


/RCO should SET 

OTP 

01162 

740200 


SZA 


/DTP « 1 ALL OTHERS » 0 


01163 

740040 

TMER42 

4 

hlt 


/DISPLAY BITS IN ERROR 




/NOR CHANGE to read 

DATA 




/NORMAL 

J 

MODE SET RC 

TO 

• 257 


01164 

202343 

/ 

LAC (13000 




01165 

707544 


OTXA 


/change to roata normal 

MODE 

01166 

777377 


blenth-i 


/•257 


01167 

040030 


DAC RCLOC 


/P OR RC 
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TCBXP2 

SRC * MaINQEC-15-DATCA-A 

* MARCH 17. 1972 * 



/f IRST 

DATA BREAK SHOULD 

NOT OCCUR 



/FOR AT 

L t AST 420 M1CROSEC 

01170 

777575 

/ 

LAW -203 


^1171 

'1400 1 0 


0 A c J 0 


01172 

4400 Its 


TSZ 1/ 

/flMt UUT 42H 

e 1 1 7 3 

601172 


JMP ,-t 

/MICRO SEC 

01174 

200030 

/ 

LAC WCLOC 

/ORtAK MAUc YtT 

01175 

542344 


S AO (BLtNTH-1 


01176 

741000 


5KP 

/NO BREAK til OK 

01177 

740040 

THEH43 

/ 

hut 

/ N C A T A HRcAk in STaT BLOCK uR REvC* 



/ 

/F IWSI 

DATA BREAK SHOULD 

UCCUR 



/WITHIN 

NEXT 300 HICROSEC 

01200 

777700 

7 

LAW -100 


01201 

040010 


DAC 10 


01202 

200030 


LAC WCLOC 

/GET n C 

01203 

542345 


SAD (BLfcNTH 

✓BREAK YET 

01204 

601210 


JMP * ♦ 4 

/YES 

01205 

440010 


ISZ 10 

/TIMED OUT 300 MICROSEC 

01206 

001202 


JMP ,-4 

/NO 

01207 

740040 

TMER44 

hlt 

/NO ROATA BREAK 



71 TO OF SHOULD NOT SET 

DTF 

01210 

707572 


DTRB«fl0 

/RE AO STAT B 

01211 

740200 


SZA 

/no flags should « i 

01212 

740040 

TMER45 

/ 

hlt 




/ 

/EACH SUCCEEDING DATA BREAK 



/should 

OCCUR WITHIN 300 

MICROSEC 



/OF LAST DATA BREAK 


01213 

202346 

SVwCPl 

LAC (1 


01214 

340030 


TAO wcloc 

/CURRENT wC +1 

01215 

040011 


DAC 11 

/SAVE FOR COMPARE 

01216 

777720 


LAW -60 


01217 

040010 


DAC 10 


01220 

200030 


LAC WCLOC 

/BREAK MAOE YET 

01221 

5400U 


SAD 11 


01222 

601226 


JMP ,44 

/YES DATA BREAK 

01223 

440010 


ISZ 10 

/WAITED 30ta MICNUSEC 

01224 

601220 


JMP .-4 

/NO 

01225 

740040 

THER46 

i 

HLT 

/NO DHRK 300 MlCPOStC 

01226 

740001 

/ 

CM A 


01227 

740200 


SZA 

/25B WORDS YET 

01230 

601213 


JMP SVWCP1 
.fcJECT 

/NO 



PAGE Zl 

TC6XP2 

SRC * MAlNOEC-15-OATCA-A 

* MARCH 17, 1972 * 



/THE tm SHOOLO SET wITHlN 300 mJCROSEC 



/STaT CHECK GOING TO 0 AND RDATA NORMAL 

01231 

777634 


LAW -144 


0 1232 

*40010 


DAC Id 


01233 

440010 


ISZ 10 

/TIME OuT 3, / H I C R 0 b t C 

01234 

601233 


JMP .-1 


01235 

707572 


Olkfci+10 


01236 

502347 


ANO C357777 

/mask par 

01237 

242326 


X UR (100 

/only 0 TF SHOULD * 1 

01240 

740200 


SZ A 


01241 

740040 

THER47 

i 

HLT 

/OlSPLAy FAILED blTS 



r 

/wait ANOTHER 300 MICROSEC 



/kCLOC 

should NOT CHANGE 


01242 

777634 


LAW -144 


01243 

040010 


DAC 10 


01244 

440010 


ISZ 10 

/TIME OUT 300 

01245 

601244 


JMP .-1 

/MICRO SEC 

01246 

200030 


LAC WCLOC 

/WC GET -M 

01247 

740001 


CM A 


01250 

740200 


SZA 


01251 

740040 

TMEK48 

/ 

HLT 

/DATA BREAK DURING IDLE 



/ 

/NON change to reao data 




/C MODE 

SET WC FOR 2 BLOCKS 



/DTE SHOULD NOT SET AT ENO OF 



/FIRST 

BLOCK NO WCO, DTF 

should SET 



/AT END 

i 

OF SECOND BLOCK 

WC WILL • 0 

01252 

202341 

/ 

LAC (10000 


01253 

7 07 5-4,4 


dtxa 

/SET CMODE 

01254 

777000 


LAW -1000 

/-512 

01255 

040030 


DAC WCLOC 

/FOR 2 BLOCKS 

01256 

202323 


LAC (BUFFER-1 


01257 

040031 


DAC CALOC 




/SHOULD 

HAKE 256 DATA BREAKS 



/WITHIN 

NEXT 56 MILLISEC 


01260 

202350 

/ 

LAC (756700 


01261 

040010 


DAC 10 


01262 

200031 


LAC CALOC 

/GET CA 

01263 

542351 


S AO (BUFFK2-1 

/END OF BUFFER 

01264 

60127® 


JMP „ ♦ 4 

/YES MADE 256 BRKS 

01265 

440010 


ISZ 10 

/WAITED l BLOCK TIME 

01266 

601262 


JMP , -4 

/NO 

01267 

740040 

TMER49 

HLT 

/DISPLAY LA 




.EJECT 
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TCBXP2 SRC 


* maXNOEC-15-UATCA-A * m APCh 17 , 1972 * 


/ T I wfc OUT 600 MICROSEC 

/NO MORE DATA BRkS SHOULD BE MADE 


/ 


01270 

777470 


law -310 



01271 

1 f 


QAC 10 



01272 

440010 


IS l 13 


/TIME OUT 

01273 

601272 


JHP ,-l 


75fc0 MICRUSEC 

01274 

300030 


LAC wCLOC 



01275 

542345 


SAO (6LENTH 


/MAKE AN Y MORE BREAKS 

01276 

741000 


SKP 


/NG 

012/7 

740040 

T*fcR50 

HLT 


/EXTRA DATA BREa*S 


• 

/ 

/The OTP SHOUUO NOT 

9E 

se T 



/ R 0 A T A 

CMUOk AN 0 *C 

= 1 


01300 

707572 

/ 

OTRB410 


/READ S T A T 6 

01301 

502347 


AND (357777 


/mask up F parity 

01302 

740200 


SZA 


/ANY OTHERS SET 

01303 

740040 

TMER51 

HUT 

f 


/DISPLAY FLAGS IN ERROR 



i 

/NO* SHOULD HAK t ANOTHER 250 



/U AT A 

J 

BREAKS WITHIN 

NEXT 56 MILLISEC 

01304 

202352 

/ 

LAC («»34000 



01305 

040010 


OAC 10 



01306 

200030 


LAC MCLOC 



01307 

741200 


SNA 


/wC GO TO 0 YET 

01310 

601314 


JMP .44 


/YES 

01311 

440010 


ISZ 10 


/5 block time elapsed 

01312 

601306 


JMP .*4 


/NO 

01313 

740040 

TM6R52 

s 

HLT 


t 



/NCO SHOULD NOT SET 

OTF 

BY ITSELF 

01314 

707572 

r 

OTR8M0 


/READ STAT B 

01315 

502347 


ANO (357777 


/mask PARITY 

01316 

740200 


SZA 


/SHOULD HAVE NO OTHER FLAGS 

01317 

740040 

THER53 

HLT 





/TIME 

OUT 300 MJCKOSEC 

THEN 



/THE OTF SHOULD 8E SET 

ST CHECK TO 0 



/RDATA 

C MOOE ANO WC 

s 

0 

01320 

777634 


LAW -144 



01321 

040010 


OAC 10 



01322 

440010 


ISZ 10 


/TIME GUT 300 

0 1323 

601322 


JMP .-1 


/MICRO SEC 

01324 

707572 


OIRB+10 


/READ STAT B 

01325 

502347 


AND (357777 


/MASK PARITY 

01326 

242326 


X UR (100 


/only otf should = 

01327 

740200 


SZA 


/DISPLAY FAILEO BITS 

01330 

740040 

7HER54 

HLT 




, k J£C T 



PAGE *T3 

TCBXP2 

StfC * MAlNUEC-15-DATCA-A * MARCH 17, 1972 * 



/NON CHANGE BACA TO SEARCH NORMAL MODE 



/ A NO TEST WHITE DATA 

OVE» NEXT BLOCK 

P1331 

?P?343 


LAC (13000 


f*l 332 

7*7544 


dtxa 

/CHANGE TO SEARCH N mole 

01303 

I40tf3f- 


D Z M WCLUC 


*1334 

202323 


LAC (OLaEN'J 


0 1 335 

P40031 


OAC CALUC 


01336 

707572 


OTRB+10 

/FIND BLOCK YET 

01337 

741200 


SNA 


01340 

60)336 


JMP .-2 

/WAIT FOR ST BLK 

P1341 

202353 


LAC (5000 


01342 

707544 


DTXA 

/ C HAN Gfc TO WRITE DATA 

01343 

777377 


BLENTH-1 


01344 

040030 


DAC WCLQC 

/•2S7 



/ 

/Should 

NOT MAKE ANY 

breaks FOR AT LEAST 280 USEC 

01345 

777702 


LAW -76 


01346 

040010 


DAC 10 


01347 

440010 


isz 10 

/TIME OUT 

01350 

601347 


JMP .-1 

/280 MICROSEC 

01351 

200030 


LAC WCIOC 


01352 

542344 


SAD (BLENTH-1 

/MAKE ANY BREAKS 

01353 

741000 


SKP 

/NO 

01354 

740040 

TMER55 

hlt 

/PREMATUR WOATA BREAK 



/THE FIRST OATA BREAK 

SMOULO 



/OCCUR 1 

DURING STATE REVERSE CHECK 



/WITHIN 

NEXT 300 MICROSEC 

01355 

777634 


LAW -144 


01356 

040010 


DAC 10 


01357 

200431 


LAC CALOC 


01360 

542317 


SAD (BUFFER 

/HAKE 1ST BREAK 

01361 

601365 


JMP ,+4 

/YES 

01362 

440010 


ISZ 10 

/waited 300 MICSEC 

01363 

601357 


JMP ,-4 

/NC 

01364 

740040 

TMER56 

4 

hlt 

/NO BREAK STATE REVERSE CHECK 



/NEXT 255 OATA BREAKS 




/SHOULD 

OCCUR WITHIN 

300 



/MICRQSEC OF EACH OTHER 

01365 

202346 

WDWCPl 

LAC (1 


01366 

340030 


TAD WCLOC 

/CURRENT wC ♦ 1 

01367 

040011 


DAC 11 

/SAVE IT 

01370 

777720 


LAW -60 


01371 

040010 


DAC 10 


01372 

200030 


LAC WCCOC 


01373 

540011 


SAD 11 

/MAKE NEXT BREAK 

01374 

601400 


JMP .+4 

/YES 

01375 

440010 


ISZ 10 

/WAITED 300 MICSEC 

01376 

601372 


JMP , — 4 

/NC 

01377 

740040 

TMER57 

hlt 

/NO DBRK 000 MICSEC 
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P1400 

01401 

01402 


01403 

01404 

01405 

01406 

01407 

01410 

01411 

01412 


01413 

01414 

01415 

01416 

01417 

01420 

01421 

01422 


01423 

01424 

01425 

01426 


01427 

01430 

01431 

01432 

01433 

01434 

01435 

01436 


TC6XP2 SRC * MAIN0EC-15-DATCA-A * MARCH 17 , 1972 * 



/SEE IF 

256 DATA BREAKS 

YET 

740001 


CM A 


740200 


SZA 

/made 256 Breaks 

69*1365 

/ 

JMP w-DwCPl 

/NO 


/ 

/TIME Out 2*V MICKO SEC 



/WRITE 

DATA SHOULD NOT 

DATA BREAK DURING STATE FINAL 

777700 

/ 

LAW -100 


040010 


DAC 10 


440010 


ISZ 10 

/TIME OUT 

601405 


JMP .-1 

Z24-0 MIC SEC 

200030 


LAC WCLOC 

/GET *C 

740001 


CM A 


740200 


SZA 

/EXTRA BREAK 

740040 

TMER5S 

/ 

HLT 

/ WO A T A BREAK STATE FINAL 


/ 

/TIME OUT ANOTHER 200 USEC 


/DTP SHOULD GO TO 1 AND 

NO DATA BREAK 


/0U«ING 

STATE CHECK 


777600 

/ 

LAW »200 

/* A LITTLE XTRA 

040010 


DAC 10 


440010 


ISZ 10 

/time out about 

601415 


JMP ,-l 

/26B MICROSEC 

707572 


OTRB+10 

/READ STAT 6 

242326 


XOR (100 

/DTF SHOULD « 1 

740200 


SZA 


740040 

TMER59 

hlt 

/DISPLAY ERROR BITS 


/WRITE 

DATA DATA BREAK 

SHOULD 


/BE INHIBITED DURING STATE CHECK 

200030 


LAC WCLOC 

/GET WC 

740001 


CMA 


740200 


SZA 

/EXTRA BREAK 

740040 

TMER60 

HLT 

/«D AT A BREAK STATE CHECK 


/ 

/TIME OUT 600 MICROSEC 
/WREN SHOULD GO TO 0 DURING STATE IDLE 
/AND NO MORE DATA BREAKS 
/ 


777470 

LAW 

-310 


040010 

DAC 

10 


440010 

ISZ 

10 

/TIME OUT 600 MICSEC 

601431 

JMP 

.-1 


200030 

LAC 

WCLOC 

/GET wC 

740001 

CMA 



740200 

SZA 


/OIO IT +1 

740040 

TMER61 HLT 


/wREN PROB OIO NOT GO 


.EJECT 



PAGE TT 

TCBXP2 

SKC * 

MAINOEC-1S-DATCA-A * MARCH 17, 1972 * 



/WRITE 

DATA 

WILL HAKE 1 DATA BREAK AT STATE K tVf-RSfc CHECK 

01437 

777776 


LAW 

-2 

01440 

04003/ 


DAC 

wCLUC 

5 * 1 44 1 

20003/ 


LAC 

WCLDC 

£1442 

740/01 


C* A 

/WAIT hOR U8KK 

01443 

740200 


S/A 

/AT wtxT REVERSE CHtCK 

£1444 

6/1441 


JflP 

.-3 

£1445 

7774 70 


LAW 

-310 

0 1 446 

04001/ 


DAC 

10 

£1447 

440010 


ISZ 

10 

£1450 

601447 

/ 

JmP 

.-1 



/ 

/A OTXA AT 

THIS POINT WITH 



/WRITE 

DATA 

WILL CAUSE TIMING ERROR 



/STBLKMRK AND ST IDLE *0 

01451 

707554 


DTXA+10 /xcr 0'S 

01452 

442160 


ISZ 

dly /WOATA already ■ 1 

01453 

601452 


JHP 

,-l /WAIT 

01454 

707572 


DTR8+10 /TIMING SHOULD BE a 1 

01455 

242335 


XOR 

(410000 /SHOULD CLEAR TIM AND t F 

01456 

740200 


SZA 


01457 

740040 

TMEH63 

hlt 

/DISPLAY HAILED BIT 



/NEXT 

dtxa 

SHUULO CLEAR TIDING 



/LAST 

ERROR 

MAKES US * 0 WHICH SHOULD 



/CLEAR 

STATE REG TO STATE IDLE 

01460 

707554 


DTXA410 /CLEAR AGAIN 

01461 

601462 


JHP 

.♦1 /WAIT 5 

01462 

601463 


JHP 

.♦1 

01463 

601464 


JHP 

-♦1 

01464 

601465 


JMP 

• ♦1 

01465 

707572 


DTRB410 /READ SHOULD ALL * 0 

01466 

740200 


SZA 


01467 

740040 

TMER64 

hlt 

/DISPLAY ERROR STATUS 




.EJECT 
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/NOW start UP in SEARCH again 
/AND TEST WRITE DATA CMOOE 


/ 


c* 1 4701 

?v»?337 


LAC (21001* 

/SEARCH N MODE 

M4/1 

777 545 


DTLA 

/LOAD ANO GO 

fr‘1472 

t4flfc3(' 


OZM WCLOC 


{*1473 

202323 


LAC (BLKFND 


(*1474 

040031 


OAC CALOC 


01475 

230030 


LAC WCLOC 

/* A 1 T FOR BLOC* 

01476 

741200 


SNA 


01477 

6G1475 


JMP B -2 


01500 

202354 


LAC (15000 


01501 

707544 


DTXA 

/make * DATA c MODE 

01502 

777001 


LAW -777 

/-SI 1 

01503 

9140030 


DAC WCLOC 


01504 

202323 


LAC (BUFFER-1 

/i word short 2 blocks 

01505 

944103 1 


OAC CALOC 


01506 

202352 


LAC (-34000 


01507 

040010 


OAC 10 


01510 

200031 


LAC CALOC 


01511 

542351 


SAD (8UFFR2-1 

/wait first 

01512 

601516 


JMP t +4 

/256 OATA BRAKS 

01513 

440010 


ISZ 10 


01514 

601510 


JMP .-4 


01515 

740040 

TMER65 

hlt 

/ 



/NOW TIME OUT 600 MICROSEC OTF SHOULD ■ 0 

01516 

777470 


LAW -310 


01517 

9140010 


DAC 10 


01520 

440010 


ISZ 10 

/WAIT 600 MICSEC 

01521 

601520 


JMP .-1 


01522 

707572 


DTRB+10 

/READ STAT B 

01523 

740200 


SZA 

/OTF SHOULO « 0 

01524 

740040 

TMER66 

A 

hlt 

/CMQDE ANO WC • l INH DTF 



/ANY BREAKS MAOE ST FINAL AND STATE CHECK 

01525 

200031 


LAC CALOC 

/GET CA 

01526 

542351 


SAD (BUFFR2-1 

/SHOULD NOT HAVE INCREMENTED 

01527 

741000 


SKP 

/OK 

01530 

740040 

TMER67 

hlt 

/EXTRA OB WRITE DATA CMOOfc 



/SHOULD 

MAOE NEXT 255 

BREAKS 56 MILLISEC 

01531 

202352 


LAC (-34000 


01532 

040010 


DAC 10 


01533 

200030 


LAC WCLOC 

/WAIT FOR WC 

01534 

741200 


SNA 

/TO GO TO 0 

01535 

601541 


JMP .+4 

/ *C * 0 

01536 

440010 


ISZ 10 

/WAITED 56 MltLSEC 

01537 

601533 


JMP v — 4 

/ MO 

01540 

740040 

TMEK6B 

hlt 

/OIO not MAKE Enough bREAkS 


.EJECT 



* MAlNOEC-15-DATCA-A * MARCH 17, 1972 * 


Ut 


TCBXP2 SRC 


/nO* WAIT 900 MICHOSEC AND DIE SHUUtO * 1 


01541 

777320 

LAW -460 


01542 

"40010 

DAC 10 


01543 

440010 

152 13 

/*AJ7 MIC5EC 

0 1544 

601543 

JMP .-1 


01545 

707572 

DTR0M0 

/READ ST A f b 

01546 

242326 

Xt)R (100 


01547 

740200 

SZA 

/olF should = l 

01-550 

740040 

THEW69 MLT 

/CPODE *c«4 AnC STCHK TO 



/WITH WC « 0 SHOULD NOT MADE ANY MORE BREAKS 

01551 

200030 

LAC WCLGC 


P1552 

740200 

SZA 

/*C * 0 DID NOT InH DF 

01553 

740040 

TM£R70 HLT 

01554 

703302 

CAF 


01555 

102077 

JMS TYPTEX 


01556 

777777 

777777 


01557 

455644 

455644 


01560 

770000 

770000 


01561 

740040 

TMER71 HLT 


01562 

600523 

JMP TMOTST 




/LOAD ADDRESSES 30 TO 

77 WITH LAW . »S 



/TEST FOR NO API BREAK AT START 

01563 

202355 

APITST lac (27 

/FOR START STORE IN 30 

01564 

040010 

DAC 10 


01565 

760030 

LAW 30 

/FIRST LA* 

01566 

060010 

OAC* 10 


01567 

542356 

SAO (LAW 77 

/DONE TO LAST CHANNEL 

01570 

601573 

JMP # *3 

/YES 

01571 

342346 

TAO (1 

/LAW M 

01572 

601566 

JMP # -4 

/STORE NEXT 



/NOW CLEAR ALL FLAGS 

AND TURN API ON 



/NONE OF THE CHANNELS 

SHOULD BREAK 

01573 

70330? 

CAF 

/clear all FLAGS 

01574 

202357 

LAC (400000 


01575 

705504 

ISA 

/TURN ON API ENABLE 

01576 

402074 

XCT LACI0 

/STALL 4 CYCLES 

01577 

740200 

SZA 

/AC SHDULO STILL * 0 

01600 

740040 

HLT 

/DISPLAY FAILED CHAN IN 



/NOW SET SELECT ERROR 

IN THE TC02 API IS OFF CAF 



/TC02 SHOULD NOT API 

BREAK TO ADORESS 44 

01601 

703302 

CAF 

/SHQUtO TURN API OFF 

01602 

202360 

LAC (7400 

/ALSO ENABLE I 

01603 

707545 

DTLA 

/WILL SET SELECT ERROR 

01604 

750060 

CLA 


01605 

601606 

JMP .♦! 


01606 

601607 

JMP ,+l 

/API SHUULU NOT 

01607 

601610 

JMP ,*1 

/BREAK IT IS TURNEQ 

01610 

601611 

JMP .♦! 

/OFF 

01611 

601612 

JMP ,+i 


01612 

740200 

SZA 

/API BREAK IN ERROR 

01613 

740040 

HLT 

/ulSPLAY FAILED CHANNEL 


.EJECT 


FAILED 
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TCBXP2 

SRC * MaJNOEC-1 5-OATCA- 

A * MARCH 1/, (972 * 



/NOW TC02 SHOULD BREAK 

TO ADDRESS 44 



/wrttN API IS TURNED Un 


01614 

202357 

LAC (40W000 

/ T C U2 SE = l 

01615 

705504 

ISA 

/SET aPI tNAbLE 

01616 

4/2074 

XCT LACIP 

/S f ALL A CYCLES Ar 1 bwtAK 

01617 

542361 

S A U ( L a * 4 4 

/TO ADDRESS 44 

01620 

741000 

SKP 

/YES OK Ir AC a 0 NO BREAK 

0 1621 

740040 

hlT 

/ A F I not s 0 WRONG ADDRESS 



708* INSTRUCTION SHOULD 

ALLOW 2N0 BREAK 



/SE STILL * 1 AND API 

still enabled 

01622 

707554 

D T X A ♦ 1 0 


01623 

703304 

OBK 

/CLEAR PRIORITY ACTIVE 

01624 

401616 

XCT .-6 

/SHOULD ALLOW 2ND BREAK AFTER 5 CYCLES 

01625 

542361 

SAD (LAW 44 

/RIGHT ADDRESS 

01626 

741000 

SkP 

/YES, BROKE TO 44 

01627 

740040 

mlt 

/AC « 0 NU BREAK OTHER WRONG 



/NOW TURN API OFF 




/THEN DDK SMOUi.0 NOT ALLOW A BREAK 

01630 

707554 

nrxA+ia 


01631 

705514 

ISA+10 

/CLEAR API ENABLE 

01632 

703304 

OBK 

/CLEAR OECTaPE PR ACT 

01633 

402074 

XCT LACI0 


01634 

740200 

SZA 

/ac should still » 0 no break 

01635 

740040 

HOT 

/API DIO NOT TURN OFF 



/SET A HIGHER PRIORITY 

ACTIVE 



/ANO ENABLE API SHOULD 

NO? BREAK 

01636 

707554 

DTXA+10 


01637 

202362 

LAC (400200 

/SET PR0 ACTIVE API ON 

01640 

705504 

ISA 

/DC IT 

01641 

402074 

XCT LAC 10 


01642 

740200 

SZA 

/SHOULD NOT ALLOW BREAK 

01643 

740040 

hlt 

/0 ACTIVE YET API BROKE 



/NOW DBK SHOULD ALLOW TC02 BREAK 



/CLEAR PR0 ACTIVE THEN 

BREAKS 

01644 

703304 

DBK 

/CLEAR PR0 ACTIVE 

01645 

401641 

XCT ,-4 

/STALL 5 CYCLES SHOULD TEN API 

01646 

542361 

SAO (LAW 44 

/IF AC * 0 NO BREAK 

01647 

741000 

SKP 

/AC ■ LAW 44 IS OK 

01650 

740040 

hlt 

/AC NOT 0 AND NOT LAW 44 OTHER CHAN 



/PROGRAM LEVEL REQUESTS 

SHOULD NOT INTERFERE WITH OECTAPE 

01651 

703302 

CAP 


01652 

707554 

DTXA+10 

/WILL CAUSE SELECT ERROR 

01653 

202363 

LAC (400400 

/TO Turn API ANU 4 PROG RtO ON 

01654 

705504 

ISA 

/ENABLE 

01655 

402074 

XCT L AC 10 

/STALL 4 CYCLES ANO API BREAK 

01656 

542361 

SAD (LAW 44 

/GET TO 44 only 

01657 

74100*5 

SKP 

/ YES 

01660 

740040 

hlt 




.EJECT 




PAGt 


* MAIN0EO15-UATCA-A * MARCH 17 


19/2 


zy TCBXP2 SRC 


* 




/ t u k \ api un then off 




/BHOULO ROT ACCOM TC02 TO BREAK 

01661 

7P3JP2 

r 

C AH 

/CLEAR API ENaBuE 

01662 

7/7554 

D r x A + 1 0 

/AND DtCTAPt ACIlVc 

01663 

4/2H74 

xcr lacivj 

/WAIT Ffjk i>fc 

01664 

20235/ 

LAC (400000 


01665 

705504 

ISA 

/TURN API ON 

01666 

705514 

ISA +10 

/TURN IT OFF 

01667 

402074 

XCT LAC 10 


01670 

740200 

S/A 

/SHOULD NOT have broken 

01671 

740040 

hl r 

/BREAK AFTER API OFF 



/ 

/ALSO DBF FOLLOWED BT 

API OFF 



/SHOULD NOT ALLOW A BREAK BUT LAST API OFF 



/SHOULD NOT LOOSE SE 

interrupt 

01672 

202357 

/ 

LAC (400000 


01673 

705504 

ISA 

/ENABLE API 

01674 

402074 

XCT LACI0 

/should nop then break 

01675 

542361 

SAD (LAW 44 


01676 

741000 

SkP 

/API DIO NOT LOOSE SE 

01677 

740040 

hlt 

/API ON API OFF CLRD SE 

01700 

707554 

DTXA+10 


01701 

402074 

XCT LACI0 


01702 

703304 

DttK 

/CLEAR OECTAPE ACTIVE 

01703 

705514 

ISAa-10 

/TURN API OFF 

01704 

402074 

XCT L ACI0 

/SHQULO NOT ALLOW BREAK 

01705 

740200 

SZA 


01706 

740040 

HLT 

i 

/BREAK AFTER API OFF 



/ 

/DBK FOLLOMEO BY API 

OFF SHOULD 



/NOT HAVE LOST THE SELECT ERROR INTERRUPT 

01707 

202357 

r 

LAC (400000 


01710 

705504 

ISA 


01711 

402074 

XCT LACI0 


01712 

542361 

SAD (LAN 44 


01713 

741000 

SKP 

/LAST ISA 10 LOST AN ACTIVE INTERRUPT 

01714 

74.0040 

hlt 
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* 

NAlNDfeC-15-DATCA-A * MARCH 17, 1972 * 



/API 

J 

should 

OVEWRIOE 

PROGRAM INTERRUPT 

0 1715 

t 4000.0 

f 

DZ* 

P 


01716 

202364 


LAC 

( . + 1*> 


01717 

040002 


OAC 

? 


0-1720 

703302 


CAF 



01721 

700042 


I un 


/ENABLE PI 

0 1722 

202357 


LAC 

(400000 


01723 

705504 


ISA 


/ENABLE API 

01724 

20236^ 


LAC 

(7 4tf 0 


01725 

707545 


DTLA 

/CAUSE A SELECT ERROR 

01726 

402074 


xlt 

LACI0 


01727 

601730 


JMP 

.♦1 

/WAIT 

01730 

601731 


JflP 

.*P1 

/POP PI OR API 

01731 

601732 


JMP 

• * i 

/should only get 

01732 

601733 


JMP 

.♦i 

/THE API BREAK 

01733 

601734 


JMP 

.♦1 

/AND NOT THE PI 

01734 

601735 


JMP 

.♦i 


01735 

542361 


SAD 

(LAW 44 

/API OK 

01736 

741000 


S*P 


/YES 

01737 

740040 


HLT 


/API DID NOT BREAK 

01740 

200000 


LAC 

0 

/SHOULD STILL 6t « 

01741 

740200 


SZA 


/DID PI OCCUR 

01742 

740040 


HIT 


/YES API DID NOT INH PI 



/ 

/DBK 

SHOULD 

NOT ALLOW 2ND BREAK FROM SAME FLAG 



/AND 

Pit should not 

OCCUR AORS 0 STILL « 0 

01743 

202365 

/ 

LAC 

(.♦6 


01744 

040002 


DAC 

2 


01745 

703304 


OBK 


/DBK 

01746 

402016 


XCT 

SRCHL0 

/STALL 5 CYCLES 

01747 

601750 


JMP 

.♦1 

/SHOULD NOT PIE SHOULD APE 

01750 

601751 


JMP 

.♦i 

/SELECT ERROR HAS ALREADY 

01751 

542361 


SAD 

(LAW 44 

/BEEN SER V ICED SHD BE 

01752 

741000 


SKP 


/SERVICEO TWICE 

01753 

740040 


HLT 



01754 

200000 


LAC 

0 

/API BROKE 

01755 

740200 


SZA 



01756 

740040 


HLT 


/PROGRAM INTERRUPT w£nT TO 0 

01757 

700002 


I OF 



01760 

760044 


LAW 

44 


01761 

040044 


OAC 

44 

/RESTORE 44 TO LAW , 

01762 

202302 


LAC 

(JMP* 2) 

/RESTORE 1 FOR nExT 

01763 

040001 


DAC 

l 

/INTERRUPT 



/ 

.eject 
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TCB*P2 $RC 


* MAInOEC-15-DATCa-A * MARCH 1 7, 1972 * 


/STATUS A BIT 9 i 0 SE « 1 
/SHOULD NOT ALLOW API BREAK 


/ 


01764 

7P33 82 

CAF 


01765 

2i??J67 

LAC (44/IPM0 


01766 

70 55.* 4 

loA 


01767 

20231 4* 

LAC (7Mtf 

/bfc A u a 1 n Only nO-EN! 

01770 

707545 

DTLA 

/CAUSE SE 

01771 

4452074 

XCT LACItf 


01772 

6PJ77J 

JMP .♦! 

/WAIT SHOULO NOT API 

01773 

60 1 774 

JMP .+1 


01774 

001775 

JMP ,+l 


01775 

601776 

JMP .+1 

/DID API BREAK 

01776 

740200 

SZA 

01777 

740040 

hlt 

/API BROKE NOT DT £nI 

02000 

703302 

CaF 


02001 

102260 

JMS REWURV 

/PUT DRIVE IN EZ 

02002 

202366 

LAC CSRCHFW+ENABLI 

02003 

340231 

TAO UNFUNC 


02004 

707545 

DTLA 

/SEARCH FORWARD GO 

02005 

202323 

LAC CdLKFND 


02806 

048031 

DAC CAL DC 

/SET UP CA 

02907 

707572 

DTRB+10 

/WAIT FOR DTF 

02010 

741200 

SNA 

02011 

092807 

JMP .-2 

/ERROR STATUS 

02012 

741 100 

SPA 

02013 

602002 

JMP ,-11 

/OO IT AGAIN 

02014 

202357 

LAC (400000 


02015 

705504 

ISA 

/ENABLE API 

02016 

402974 

SKCHL0 XCT LACI0 


02017 

542361 

SAD CLAW 44 

/DID BREAK OCCUR TO 44 

02020 

741880 

SKP 

/YE5 API ON DTF 

02021 

740840 

hlt 



.EJECT 
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PAGE 32 TC8XP? SRC 

/NOW start search FORWARD with API ON 
/wNfcN SEARCH 0 A 1 A BREAKS SHOULD API 
/ALSO USE CLOCK INTERRUPT FOR TIMER 


/ 


P2P22 

7 / 3 J * 


caf 


02023 

2^/23 1 


LAC UnFuNC 


02024 

342360 


TAD (SRCHFw+ENAHLI 

02025 

707545 


DTLA 


02026 

777324 


LAW -454 

/5 SECOND CLOCI 

02027 

04/007 


D AC 7 

/JUST In CASE HANDS 

02030 

140000 


OZH 0 


02031 

700044 


CLON 


02032 

202367 


LAC C.+12 


02033 

040002 


DAC 2 


02034 

202357 


LAC (400000 


02035 

705504 


ISA 


02036 

700042 


IUN 


02037 

750000 


CLA 


02040 

741200 


SNA 


02041 

602040 


JMP .-1 


02042 

700004 


CLOF 


02043 

700002 


IOF 

/DIO API FOR OECTAPE 

02044 

542361 


SAD (LAW 44 

02045 

741000 


SKP 

/YES OT BREAK OK 

02046 

740040 


HLT 


02047 

200000 


LAC 0 


02050 

740200 


SZA 

/DIO PI OCCUR 

02051 

740040 


HLT 

/PI IN error 

02052 

206377 


LAC BLKFND 

/WAS SEARCH 

02053 

741200 


SNA 

/DATA BREAK HAOE 

02054 

740040 


HLT 

/SEARCH 010 NOT D8 

02055 

703302 


CAF 


02056 

102077 


JMS TYPTEX 


02057 

777777 


LAW -1 


02060 

416051 


416051 

/API 

02061 

004556 


4556 

/ EN 

02062 

447700 


447700 

/Q EOM 

02063 

750004 


LAS 


02064 

502315 


AND (1000 


02065 

741200 


SNA 


02066 

740040 


HLT 


02067 

601563 


JMP APITST 


02070 

402071 

XCTXCT 

XCT .*1 

/SO THAT 

02071 

402072 


XCT .+1 

/PkUGRAM RlLL STALL 

02072 

402016 


XCT SRCHL0 

/P OR 7 CYCLES 

02073 

777777 

EX 1FLG 

LAW -l 

/MADE 0 8 Y OZm In 1 


.EJECT 



70TGE 


TCBXP2 SRC 


* MAlNOEC-15-DATCA-A * MARCH 17, 1972 * 


02074 

222075 

LAC10 LAC* ,*1 

/LAC I NEXT ADORE 

02075 

*7102076 

,♦1 /WHICH 

POINTS AT NEXT 

02076 


0 / * H I C H 

/TYPE TEXT ROUTINE 
/MASSAGt PACKED 6 BIT CODES 
/ASCII -244 storeu AFTER j ms 
Z/77777 IS CAR RET LINE FEED 
/ / 7 CHAR IS EOM 

CONTAINS ZEROS 

02077 

602*77 

TYPTEX JMP . 


02100 

222077 

LAC* TYPTEX 


02101 

44 2077 

X sz TYPTEX 


02102 

042162 

DAC TYPSAV 


02103 

740001 

CM A 


02104 

740200 

SZ A 


02105 

60211* 

JMP .*3 


02106 

102252 

JMS TYCRLF 


02107 

602100 

JMP TYPTEX+1 


02110 

740001 

CM A 


02111 

742020 

RTR 


02112 

742020 

RTR 


02113 

742020 

RTR 


02114 

042163 

DAC TYPSAVM 


02115 

742020 

RTR 


02116 

742020 

RTR 


02117 

742020 

RTR 


02120 

102136 

JMS TYPCHR 


02121 

202163 

LAC TYPSAV+i 


02122 

102136 

JMS TYPCHR 


02123 

202162 

LAC TYPSAV 


02124 

102136 

JMS TYPCHR 


02125 

602100 

JMP TYPTEX+1 

/STOP ON ERROR IF DELETE 3*5 NOT SET 

02126 

602126 

ERRMLT JMP , 


02127 

750004 

LAS 


02130 

502370 

AND (600000 


02131 

740200 

S2A 


02132 

622126 

JMP* ERRHLT 


02133 

202126 

LAC ERRMLT 


02134 

740040 

hlt 


02135 

622126 

JMP* ERRHLT 


02136 

602136 

TYPCHR JMP , 


02137 

502371 

AND (77 


02140 

542371 

SAD (77 


02141 

622077 

JMP* TYPTEX 


02142 

342372 

TAO (240 


02143 

102145 

JMS TYPCHA 


02144 

622136 

JMP* TYPCHR 
.EJECT 




P ASE 34 


TCBXP? SKC 


* MaINOEC-15-DATCA-A * MAPCH 17, 1972 * 


{*2145 

6*2145 

T VPLHA 

J«P , 

M2 1 46 

*42161 


0 AC SAVCMA 

P2147 

7 5 0 K 0 4 


LAS 

02150 

74110!'! 


SPA 

02151 

622145 


JMP* TTPCrtA 

02152 

202161 


LAC SAVCHa 

02153 

700406 


tls 

P2154 

700401 


Tip 

02135 

6*2154 


J «p ,-l 

02156 

700402 


TCF 

02157 

622145 


JMP* TYPCHA 

02160 

000000 

OLY 

0 

02161 

000000 

SAVCHA 

0 

02162 

000000 

TYPSAV 

0 

02163 

000000 


0 

02164 

000000 


0 

02165 

000000 


0 

02166 

000000 

/TYPE 
/AC IN 

0 

CONTENTS OF THE 

octal 

02167 

602167 

TYPCON 

JMP . 

02170 

102220 


JMS DECONT 

02171 

102241 


JMS TYPOCT 

02172 

202166 


LAC TYPSAV+4 

02173 

102241 


JMS TYPOCT 

02174 

202165 


LAC TYPSAV+3 

02175 

102241 


JMS TYPOCT 

02176 

202164 


LAC TYPSAV+2 

02177 

102241 


JMS TYPOCT 

02200 

202163 


LAC TYPSAV+t 

02201 

102241 


JMS TYPOCT 

02202 

202162 


LAC TYPSAV 

02203 

102241 


JMS TYPOCT 

02204 

102246 


JMS SPACE2 

02205 

622167 

JMP* TYPCON 
/TYPE OUT LOWEST 3 CH, 
/IN OCTAL, 

02206 

602206 

TYPC03 

JMP . 

02207 

102220 


JMS DECONT 

02210 

202164 


LAC TYPSAV+2 

02211 

102241 


JMS TYPOCT 

02212 

202163 


LAC TYPSAV+1 

02213 

102241 


JMS TYPOCT 

02214 

202162 


LAC TYPSAV 

02215 

102241 


JMS TYPOCT 

02216 

1*2246 


JMS SPACES 

02217 

622206 


JMP* TYPC03 
.EJECT 



Gfc 

0222 0 
02221 
02222 

02223 

02224 

02225 

02226 
02227 

02230 

02231 

02232 

02233 

02234 

02235 

02236 

02237 

02240 

02241 

02242 

02243 

02244 

02245 

02246 

02247 

02250 

02251 

02252 

02253 

02254 

02255 

02256 

02257 

02250 

02261 

02262 

02263 

02264 

02265 

02266 
02267 

02270 

02271 

02272 

02273 

02274 

02275 

02276 

02277 

02300 

02301 

02302 


TCHXP2 

SRC * MA 

ilNDEOlb-DATCA-A 

* MARCH 17, 

1972 * 

602220 

OtCUNT 

JMP , 



3142162 


DAC TYPSAV 



742020 


RTR 



740020 


RAR 



*42163 


C» AC TYPSAV + 1 



742020 


R f R 



740020 


RAR 



042164 


DAC TYP5AV+2 



742020 


RTR 



740020 


RAR 



*42165 


DAC TYPSAV+3 



742020 


RlR 



740020 


RAR 



042166 


DAC TYPSAV+4 



742020 


RTR 



740020 


RAR 



622220 


JmP# oeccjnt 



602241 

TYPOCT 

JMP . 



502373 


AND (7 



342374 


TAD (260 



102145 


JMS typcha 



622241 


JMP* TYPOCT 



602246 

SHACE2 

JMP . 



102077 


JMS TYPTEX 



000077 


77 



622246 


JMP* SPACE2 



602252 

TYCRLF 

JMP „ 



202375 


UAC (215 



102145 


JMS TYPCHA 



202376 


LAC (212 



102145 


JMS TYPCHA 



622252 


JMP* TYCRLF 




/REWIND 

DRIVE TO REVERSE 

ENDZONE 


000000 

REWDRV 

0 



202316 


LAC (SOBIT+DIKBIT 


340231 


TAD UNFUNC 



707545 


DTLA 

/MOVE TAPE BKWD 

707572 


DTRB*I0 

/wait for flags 

741200 


SNA 



602264 


JMP .-2 



707562 


otrb 



542321 


SAD (500000 

/can ONLY BE 

ENDZONE 

741000 


$KP 

/OK 


740040 


xx 

/ERROR 


700314 


IORS 



502303 


AND (200 



740200 


SI A 

/ERROR FLAG? 


622260 


JMP* REWDRV 

/YES 


602272 


JMP .-5 

/nO 


000000 


.END 




000003 *L 
620211 *1 
620002 *L 



* MAlNOfcOi5«UATCA-A * M AkCH 17, 1972 


36 

TC8XP2 

SKC 

02303 

1X00200 

*L 

92304 

600262 

• L 

92345 

31004010 

*L 

92306 

020000 

*1 

H23U7 

757490 

*L 

02310 

x 07 009 

*1 

023 1 1 

440009 

*1 

02312 

690447 

*1 

02313 

027490 

*1 

02314 

609511 

*L 

92315 

001000 

*L 

02316 

960000 

*1 

02317 

006400 

*t 

02320 

777746 

*L 

02321 

500000 

*L 

02322 

045400 

*L 

02323 

906377 


02324 

723090 

• l 

02325 

590100 

*L 

02326 

090100 

*L 

02327 

600704 

*L 

92330 

900500 

*U 

02331 

600717 

*L 

92332 

923000 

*U 

02333 

656009 

*L 

02334 

410100 

*L 

02335 

410000 

*L 

02336 

033000 

*1 

02337 

021000 

*L 

02340 

172366 

*L 

02341 

010000 

*L 

02342 

754360 

*t 

02343 

013000 

*L 

02344 

777377 

*L 

02345 

777400 

*L 

02346 

000001 

*L 

02347 

357777 

*U 

02359 

756700 

*L 

02351 

006777 

*1 

92352 

744000 

*1 

02353 

005000 

*L 

02354 

015000 

*U 

02355 

000027 

*L 

02356 

760077 

*L 

02357 

400000 

*L 

92360 

007400 

*L 

02361 

760044 

*L 

92362 

400200 

*U 

92363 

400400 

*L 

02364 

901726 

*L 

92365 

001751 

*1 

02366 

021400 

*L 

92367 

002044 

*L 



F»agPB8> 

TCUXP2 

s«c 

* HAjNOEC-1 5-DATC A-A * MARCH 17, 1972 * 


023/0 

600020 

*L 



02371 

00007/ 

*L 



02372 

000.240 

*1 



02373 

00000/ 

«L 



02374 

000260 

*L 



023/5 

000215 

*L 



023/6 

000212 

*1 




SIZt«02377 

NO ERROR LINES 




